bekomme immer den Laufzeitfehler 1004 angezeigt für das Kopieren von Zeilen in Tabelle 1 in Tabelle 2 und das Makro läuft daher nicht. Komme nicht mehr weiter.
Sub Zeilenkopieren()
Dim lastrow As Long
Dim zeile As Long
lastrow = Worksheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).End(xlUp).Row
For zeile = 6 To lastrow
Worksheets("Tabelle1").Activate
Range(Cells(zeile, 2), Cells(zeile, 10)).Select
Selection.Copy
Worksheets("Tabelle2").Activate
Range("e&zeile").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next zeile
End Sub