Office: Tabelle in die nächste leere Zeile einfügen

Hallo zusammen,
ich soll mehrere Tabellen aus einer Arbeitsmappe filtern, kopieren und alle Tabellen untereinander in eine neue Datei einfügen.

Mit unterschiedlichen YT Videos hab ich mir folgenden Code zusammen gebastelt. Ich schaffe es die erste Tabelle zu kopieren, jedoch weiß ich nicht wie ich die nächste Tabelle darunter einfügen kann, ohne eine bestimmte Zelle anzusprechen, da die Tabellen sich immer vergrößern. Ich möchte also bei der ersten Tabelle eine bestimmte Zelle ansprechen und bei den nachfolgenden Tabellen jeweils die nächst leere Zeile. Wäre dankbar für jede Hilfe.

Sub Filtern_Kopieren()
'Variable dimensionieren
Dim rng As Range
Dim rng2 As Range
Dim wb_new As Workbook
Dim last As Integer

'Tabelle in range einlesen
Set rng = Tabelle4.ListObjects("AufträgeMontage").Range
Set rng2 = Tabelle6.ListObjects("AufträgeFertigung").Range

'Autofilter setzen
rng.AutoFilter 1, ">0"
rng2.AutoFilter 1, ">0"
'neue Arbeitsmappe erstellen
Set wb_new = Workbooks.Add

'gefilterte Tabelle in Arbeitsmappe kopieren
rng.SpecialCells(xlCellTypeVisible).Copy wb_new.Worksheets(1).Range("A1")
rng2.SpecialCells(xlCellTypeVisible).Copy wb_new.Worksheets(1).Range('nächste leere Zeile')

'neue Arbeitsmappe speichern und schließen
wb_new.Close True, ThisWorkbook.Path & "\Aktuell.xlsx"

End Sub

 

Hi,
die erste leere Zelle nach A1 bekommst du mit
wb_new.Worksheets(1).Range("A1").End(xlDown).Offset(1)

die Zelle nach der letzten gefüllten Zelle in Spalte A:
wb_new.Worksheets(1).Cells(Columns.Count, "A").End(xlUp).Offset(1)

 

Vielen Dank!!! Funktioniert!