Variable Tabelle kopieren und in neue Excel-Datei verschieben

With worksheets("Bla")... End With)

maxrow = Range(Cells(1, 1), Cells(1, Rows.count).End(xlUp).row

- DIM tab as Variant
   tab = range("A29:N" & maxrow).value

workbooks("Gesamt").worksheets(1).[A500].value = tab

Sub ImportTables()
    Dim wb As Workbook, fso As Object, rngOut As Range, f As String
    'Pfad in dem die *.xlsx Dateien liegen  
    Const PATHFILES = "D:\daten"  
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    With ActiveSheet
        'erste Ausgabezelle festlegen  
        Set rngOut = .Range("A1")  
        'hole die erste *.xlsx-Datei des Ordners  
        f = Dir(PATHFILES & "\*.xlsx")  
        'Loope solange bis alle Dateien verarbeitet wurden  
        Do While f <> ""  
            'öffne Datei  
            Set wb = Workbooks.Open(PATHFILES & "\" & f, ReadOnly:=True)  
            'kopiere den Inhalt der Tabelle in das aktuelle Sheet  
            With wb.Sheets(1)
                .Range("A29:N" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy rngOut  
            End With
            'schließe Dokument wieder  
            wb.Close False
            'Ausgabezelle für den nächsenm Import ermitteln  
            Set rngOut = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
            'hole Namen der nächsten Datei  
            f = Dir
        Loop
    End With
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub