Try something like the following:

Sub AAA()
Dim WS As Worksheet
Set WS = Worksheets("Sheet1")
With WS
.Rows(221).Resize(8).Insert
.Rows(183).Resize(8).Insert
.Rows(145).Resize(8).Insert
.Rows(107).Resize(8).Insert
.Rows(69).Resize(8).Insert
.Rows(31).Resize(8).Insert
End With
End Sub

Note that it works from the bottom (highest row number) upward (to
lowest row numbers) and that the row number are 1 greater than the row
after which you want to insert the new rows.

Cordially,
Chip Pearson
Microsoft MVP 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com
[email on web site]




On Mon, 21 Dec 2009 13:28:01 -0800, Deb
wrote:

To be exact, I want to be able to insert 8 blank rows after Row 30, Row 68,
Row 106, Row 144, Row 182, and Row 220. Is there a macro to set up for that?