Adding Rows to Worksheet

[C Jacobs]

I have a worksheet with 312 rows and I want to add 4
blank rows below each existing row to imput some
additional datta. Can you tell me how to do this--short
of sitting there and adding them manually by doing insert
row. I have been trying to write a macro, however, it
keeps adding the rows at the top so I'm not doing
something correct.

Thanks!!!!

 

[Don Guillett]

Here's one way

Sub insert4rows()
lr = Range("A65536").End(xlUp).Row
For i = lr To 2 Step -1
Range(Cells(i, 1), Cells(i + 3, 1)).EntireRow.Insert
Next
end sub