I am trying to select a range of cells (2x100apprx). I need to insert
a
blank cell beneath each existing cell (not an entire row) without
having to select each cell individually. I'm sure there is a macro
for
this, but I have no idea how to create it. Can someone advise how to
do this?

Sub advins()
Range("B9:C9").Select
Selection.Insert Shift:=xlDown
End Sub

This is an example! Replace B9:C9 by your real range! Try to record a macro
in such cases!


Regards,
Stefi



€žsmith06374€� ezt Ã*rta:

I am trying to select a range of cells (2x100apprx). I need to insert
a
blank cell beneath each existing cell (not an entire row) without
having to select each cell individually. I'm sure there is a macro
for
this, but I have no idea how to create it. Can someone advise how to
do this?

Hi
Try this

Sub tester()
Dim Rowcount As Long
Rowcount = Selection.Rows.Count
For i = Rowcount To 1 Step -1
Selection.Rows(i).Insert Shift:=xlDown
Next i
End Sub

regards
Paul

On Mar 12, 2:08*pm, smith06374 wrote:
I am trying to select a range of cells (2x100apprx). I need to insert
a
blank cell beneath each existing cell (not an entire row) without
having to select each cell individually. I'm sure there is a macro
for
this, but I have no idea how to create it. Can someone advise how to
do this?

Excellent! It worked perfectly... thank you so much!


On Mar 12, 2:16*pm, wrote:
Hi
Try this

Sub tester()
Dim Rowcount As Long
* * Rowcount = Selection.Rows.Count
For i = Rowcount To 1 Step -1
* * Selection.Rows(i).Insert Shift:=xlDown
Next i
End Sub

regards
Paul

On Mar 12, 2:08*pm, smith06374 wrote:



I am trying to select a range of cells (2x100apprx). I need to insert
a
blank cell beneath each existing cell (not an entire row) without
having to select each cell individually. I'm sure there is a macro
for
this, but I have no idea how to create it. Can someone advise how to
do this?- Hide quoted text -

- Show quoted text -