PDA

View Full Version : Create blank lines between all current



Sir Babydum GBE
05-21-2012, 11:13 PM
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
05-22-2012, 12:32 AM
Untested


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