inserting row macro

[daroc]

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]

thxs anyways guys....i got it to work!

 

[Ardus Petus]

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