Inserting Blank rows between items

[JB]

How can I quickly insert 3 blank rows between a list of many items? For
example, I have the following list of items in cells a1 thru a5 and I want to
quickly insert 3 blank rows between each item, without having to do each one
at a time:

John
James
Joe
Nancy
Steve

Thanks for the help.

 

[Don Guillett]

Sub insert3rows()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
Rows(i).Resize(3).Insert
Next i
End Sub

 

[JB]

Yikes! I'm a bit of a novice here. What is this you just wrote? Is it a
macro?

 

[JB]

Disregard my last post. I tried this as a Macro and it worked perfectly.
Thanks Mr. Guillett!

 

[Don Guillett]

Glad to help
If you're new to macros, you may want to read David McRitchie's intro
at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

 

[JB]

Thanks Don. I'll do that. Here's another quick question: Every time I run
my new Macro you gave me, the Macro records what it's doing and changes
itself so that when I go to run it again, it adds 6 blank rows. How do I get
it to stop changing itself?

 

[Don Guillett]

The macro is not/can not change itself. It is doing what was asked. It was
designed to run once to add the desired rows. If you are saying that you
want it to add blank rows only if there is not a blank row then it would
have to be re-written.