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?