Create blank lines between all current

[Sir Babydum GBE]

Hi

I have a spreadsheet that has a different number of records every day. As part of a procedure, I need to insert a new line (starting at row 2) so that between every record there is a blank row.

How do I do this please?

BD

[Bob Phillips]

Untested

[vba]
With Activesheet

lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = lastrow To 1 Step -1

.rows(i+1).insert
Next i
End With[/vba]