ich habe folgenden Code:
Sub KopierenUndLöschen()
Dim wks As Worksheet
Set wks = ThisWorkbook.ActiveSheet
wks.Rows(ActiveCell.Row).Copy Worksheets("Tabelle2").Range("A2")
wks.Rows(ActiveCell.Row).Delete
End Sub
Die markierte Zeile wird in die Tabelle 2 im Bereich A2 eingefügt und in Tabelle 1 gelöscht. Nunmehr möchte ich, dass die markierte Zeile an die letzt beschriebene Zeile in Tabelle 2 (also quasi am Ende) eingefügt wird. Gibt's da nicht irgendwas mit "End (x1Up)"