Sub To_Excel()
    
    Dim cnn As ADODB.Connection
    
    path = "Z:\B.xlsx"
    
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    Select Case Right(path, 1)
    Case "x"
        cnn.Provider = "Microsoft.ACE.OLEDB.12.0"
        cnn.Properties("Extended Properties") = "Excel 12.0 Xml;HDR=YES;IMEX=1"
    Case "s"
        cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
        cnn.Properties("Extended Properties") = "Excel 8.0;HDR=NO;IMEX=1"
    Case Else
        Exit Sub
    End Select
    cnn.Properties("Data Source") = path
    cnn.Open
    rst.Open "SELECT * FROM [export$A5:AT300]", cnn
    
Workbooks("A.xlsm").Worksheets("import").Range("A1").CopyFromRecordset rst
    
    rst.Close
    cnn.Close
    
    Set rst = Nothing
    Set cnn = Nothing
    
End Sub