Копировать из Recordset в новую книгу, созданную на лету

Question

Я хотел создать набор записей с данными в моей книге. Затем поместите этот набор записей в новую книгу, которую я создал. Я лаю здесь не то дерево, разве это невозможно, потому что набор записей выходит за рамки новой рабочей книги? Помогите пожалуйста?

Sub CopyWithADODB()
    ' Reference to: Microsoft ActiveX Data Objects 6.1 Library
    Dim myConnection As String
    Dim RS As ADODB.Recordset
    Dim mySQL As String
    Dim strPath As String
    Dim wsTarget As Worksheet
    Dim wbTarget As Workbook
    Dim con As ADODB.Connection
    Dim Now As String
    Dim Server As String

    Server = "ServerX"

    Now = Date
    Now = "" & Server & "_" & Format(Now, "DD-MM-YYYY")
    Now = Replace(Now, "-", "_")

    Application.ScreenUpdating = False
    strPath = ActiveWorkbook.FullName


     myConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source='" & strPath & "';Extended Properties=""Excel 12.0 XML;HDR=YES;IMEX=1"" "


        mySQL = "SELECT [d_pending$].[CustName],[d_pending$].[CustAddress] , [d_pending$].[CustTel], [d_pending$].[Email], [d_pending$].[Order], [d_pending$].[Loyalty] " & _
        "FROM [d_pending$]"


        Set RS = New ADODB.Recordset
        RS.Open mySQL, myConnection, adOpenForwardOnly, adLockOptimistic



    Set wbTarget = Workbooks.Add
    wbTarget.Sheets("Sheet1").CopyFromRecordset RS

    Workbooks.Add.SaveAs Filename:="" & Now & ""
    wbTarget.Close SaveChanges:=False

    RS.Close
    Set RS = Nothing
    Application.ScreenUpdating = True

End Sub