Sub kopieren()
Dim tab1 As Worksheet, tab2 As Worksheet, tab3 As Worksheet
Dim letzteZ As Long
Set tab1 = ThisWorkbook.Sheets("Tabelle1")
Set tab2 = ThisWorkbook.Sheets("Tabelle2")
Set tab3 = ThisWorkbook.Sheets("Tabelle3")
With tab1
letzteZ = .Cells(Rows.Count, 1).End(xlUp).Row
tab2.UsedRange.Copy
.Cells(letzteZ + 1, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
With tab1
letzteZ = .Cells(Rows.Count, 1).End(xlUp).Row
tab3.UsedRange.Copy
.Cells(letzteZ + 1, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
End Sub