Excel - Inserting rows automatically.

Asked By Ms. Olive on 08-Jul-08 11:14 AM
I have a worksheet that has over 300 entries in almost every row (no skips).

I need to insert 3 empty rows in b/w each filled row.  Is there anyway to do

Ex:   row 1
row 2
row 3

I want:

row 1

row 2

row 3

I have 3 spreadsheets to change, one is done and it took FOREVER due to
having to manually enter 3 rows in b/w every filled row (that one had almost

I have Excel 2003.


Work Email: jorobb@EXCOResources.com

Don Guillett replied on 08-Jul-08 11:27 AM
A tad quicker.

Sub insert3rows()
For i = Cells(Rows.Count, "a").End(xlUp).row To 2 Step -1
Next i
End Sub

Don Guillett
Microsoft MVP Excel
SalesAid Software
Lars-Åke Aspelin replied on 08-Jul-08 11:35 AM
On Tue, 8 Jul 2008 08:14:06 -0700, Ms. Oliver <Ms.

Try this macro:

Sub insert_3_blank_rows()
Do While Selection.Row > 1
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Offset(-1, 0).Select
End Sub

Hope this helps / Lars-Åke