Exportar de Excel hacia SQL Server

estoy intentando Exportar información de Excel hacia SQL Server a través de VBA, pero no lo quiero hacer línea por línea porque son más de 10mil registros y tarda entre 20 a 25 minutos. Lo que intento hacer es pasar el contenido de un archivo de un solo "golpe". El código que tengo actualmente me marca error en la línea de código cnn.Execute nSQL & nJOIN

¿Alguien que me pueda ayudar con este error, o que tenga una mejor manera de hacer esto desde VBA?

Este es el código actual que tengo:

Sub ExportarDatosDeExcel_A_SQLServer()Dim strFileName  As String, nSQL As String, nJOIN As StringDim cnn As ObjectDim wbkOpen As WorkbookDim objfl As VariantDim rngName As RangeWorkbooks.Open "C:\Users\Carlos.cortinas\Desktop\PROYECTOS\XXXXXX\Pruebas V03.1.xlsm"Set wbkOpen = ActiveWorkbook    Sheets("RESULTADO").SelectSet rngName = Range(Range("A2"), Range("A2").End(xlToLeft).End(xlDown))strFileName = wbkOpen.FullNameSet cnn = CreateObject("ADODB.Connection")    cnn.Open "Provider=SQLOLEDB;"& _"Data Source=184.168.194.70;"& _"Initial Catalog= XXXXXX;"& _"User ID=XXXXXX;"& _"Password=XXXXXX;"nSQL = "INSERT INTO dbo.Consolidado"nJOIN = " SELECT * from "& "[RESULTADO"& rngName.Address(True, True) & "]"cnn.Execute nSQL & nJOINMsgBox "Carga exitosa"wbkOpen.CloseSet wbkOpen = Nothing

End Sub