VBA to add a large no. of rows between data?

[zakynthos]

I would like to be able to add a row between each of the rows A1:A1000

 

[VoG]

Try

Sub addrows()
Dim i As Long
Application.ScreenUpdating = False
For i = 1000 To 2 Step -1
    Rows(i).Insert
Next i
Application.ScreenUpdating = True
End Sub

 

[zakynthos]

Thanks, much appreciated, just what I was looking for!