ich würde gerne aus einem Arbeitsblatt per Schaltfläche Zeilen in ein anderes Arbeitsblatt in die nächste freie Zeile kopieren. Geht das und wenn ja wie?
Sub neu()
Rows(1).Copy
lz = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Tabelle2").Paste Destination:=Worksheets("Tabelle2").Rows(lz)
End Sub
Private Sub CommandButton1_Click()
Dim wks As Worksheet
Set wks = ThisWorkbook.Sheets("Tab2") ' Tabelle in der Zeile eingefügt werden sollen
Selection.EntireRow.Copy
wks.Cells(wks.UsedRange.Rows.Count + 1, 1).Insert
Application.CutCopyMode = False
End Sub