Macro lege regel invoegen

[luitgapj]

Hallo

Wie kan voor mij een macro schrijven welke in een spreadsheet een lege regel invoegt.
De spreadsheets zijn soms gevuld met 10 tallen regels, maar soms ook met honderden regels.
De macro moet beginnen als ik b.v. cel A4 selecteer, en dan tussen iedere beschreven regel een lege regel invoeren.
Doorlopend tot de laatste beschreven regel, en dan stoppen.

 

[Haije]

luitgapj,

zoiets?

Sub VoegRegelIn()
    regels = ActiveCell.CurrentRegion.Rows.Count
    rij = ActiveCell.Row
    malen = regels - rij
    For t = 1 To malen
        Selection.EntireRow.Insert
        ActiveCell.Offset(2).Select
    Next t
    Selection.EntireRow.Insert
End Sub

 

[luitgapj]

toppie, en bedankt voor de snelle service ! ! !