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?

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?

.

I tried the macro but nothing happened. Also if I don't
join bottom and line as one word I receive an Expected:
End of Statement message.

Any suggestions?

-----Original Message-----
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?

.

.