Insert 3 Rows in Excel?

Question

I need to insert 3 rows between each existing row. I have this code for inserting one row, how can this be changed so that I am inserting 3 rows. Or if you have another way to do this, or some other macro, anything to help!
Sub Insert_Blank_Rows()

'Select last row in worksheet.
Selection.End(xlDown).Select

Do Until ActiveCell.Row = 1
'Insert blank row.
ActiveCell.EntireRow.Insert shift:=xlDown
'Move up one row.
ActiveCell.Offset(-1, 0).Select
Loop

End Sub

Answer 1

The easiest way to do it without messing around with macros (if you don't have too many rows) is:

1. Go to the row just below where you want to insert the 3 rows.
2. Highlight that row and the next two rows (so that you have a total of 3 rows highlighted)
3. Go to Insert-->Rows

Excel will insert 3 rows above the topmost selected row.

Then go to the next row above which you want 3 rows and repeat the procedure.