Inserting Blank rows between items

  • Thread starter Thread starter JB
  • Start date Start date
J

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.
 
Sub insert3rows()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
Rows(i).Resize(3).Insert
Next i
End Sub
 
Disregard my last post. I tried this as a Macro and it worked perfectly.
Thanks Mr. Guillett!
 
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?
 
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.
 
Back
Top