Sub InsertRows()
Dim numrow As Long
For numrow = _
Cells(Rows.Count, "A").End(xlUp).Row _
To 2 Step -1

Rows(numrow).Insert
Next numrow
End Sub

HTH
--
AP

"daroc" a écrit dans le
message de ...

hey guys,

i really need your help on this. i was able to do this last time but i
am totally lost right now.

I have a list of values from A1 to A600. I want to write a small macro
that would insert a row after A1, then A2 so something like this

Before
JAHSDSA
AKSHKAHD
AKJHDAKD
AKJHDAKD

AFTER
KAJHSD

AKDJHA

ASDHASD

ASHKAD


help would be greatly apprecaited. take care


--
daroc
------------------------------------------------------------------------
daroc's Profile:
http://www.excelforum.com/member.php...o&userid=30753
View this thread: http://www.excelforum.com/showthread...hreadid=519823