Adding rows?

[cambanis]

Hello everyone!
I have a spreadsheet full of data (560x15) and I would like to add one new
row bellow each one existing (1120x15).
Can I do it? (I can manually select rows one by one having CTRL pressed and
then insert Insert Row, but it takes a lot...)
Thanks!

 

[John Fuller]

You would want a macro for this.

Try running this with the sheet showing. Should do the trick.

Sub addrow()
Dim t
Application.ScreenUpdating = False
For t = 2 To 1130 Step 2
Cells(t, 1).EntireRow.Insert
Next t
Application.ScreenUpdating = True
End Sub