for x = 1 to bottom line + bottom line *1/3 step 3
rows(x).insert shift:=xldown
next x
-----Original Message-----
I have a spreadsheet with the following headings and
sample data:

FirstName LastName Country Registered

Bob James USA Yes
John Jones Sweden
Paul Burke USA Yes
Bill Spivey USA
Lou Dirks USA

There a over 100 rows similar to the above.
How can I write a macro that goes down the rows and
insert
a blank row after every 3 rows?

.