ich diese immer manuell nachziehen. Eine Zeile muss ich einfügen, wenn ich in mitten in der Tabelle eine Zeile ergänzen muss. Freue mich auf Lösungsvorschläge.
Sub t()
Dim Zeile1 As Long, Zeile2 As Long
Zeile1 = Selection.Row
Zeile2 = Selection.Row + Selection.Rows.Count - 1
Rows(Zeile1 & ":" & Zeile2).Insert
Rows(1).Copy Rows(Zeile1 & ":" & Zeile2)
End Sub