ich habe eine Tabelle mit ca. 2000 Zeilen. Ich möchte gern nach jeder gefüllten Zeile jeweils 5 Leerzeilen einfügen. Weiß jemand Hilfe?
Gruß Ralph
Sub Zeileneinfügen()
Dim lz%, i%
lz = Cells(Rows.Count, 1).End(xlUp).Row
For i = lz To 1 Step -1
Range(Cells(i, 1), Cells(i + 4, 1)).EntireRow.Insert
Next i
End Sub