Diese Daten möchte ich mit einem Macro kopieren und im Tabellenblatt zwei immer in die nächste freie Zeile kopieren.
Sub ZeilenKopieren()
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("Tabelle1")
Set ws2 = ThisWorkbook.Worksheets("Tabelle2")
ws1.Rows(1).Copy ws2.Cells(ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
End Sub