Access Abfrage in nächste freie Zeile von Excel Sheet kopieren

Sub ExportQueryToExcel()
    Dim rec As Recordset, objExcel As Object, wb as Object
    'Recordset aus Abfrage holen  
    Set rec = CurrentDb.OpenRecordset("AUSGESCHIEDENE_MITARBEITER")  
    'Excel öffnen  
    Set objExcel = CreateObject("Excel.Application")  
    'Ziel-Workbook öffnen  
    Set wb = objExcel.Workbooks.Open("C:\Projekt\test.xlsm")  
    'Daten in das erste Worksheet importieren in die nächste freie Zeile (überprüft wird nächste freie Zeile in Spalte A)  
    With wb.Sheets(1)
        .Cells(.Rows.Count, "A").End(-4162).Offset(1, 0).CopyFromRecordset rec  
    End With
    'Workbook speichern  
    wb.Save
    'Excel schließen  
    objExcel.Quit
End Sub