Ich hab in der Spalte A eine Auflistung meiner Kostenstellen. Ich möchte unter jeder Kostenstelle 5 Zeilen einfügen. Wie geht das am besten?
Liebe Grüsse
Thomas
Sub einfugen()
Dim n As Long
n = Range("A65536").End(xlUp).Row + 1
For i = 0 To n * 6 Step 6
Rows(i + 2 & ":" & i + 6).Select
Selection.Insert Shift:=xlDown
Next i
End Sub