For i = Cells(Rows.Count,"A").End(xlUp).Row To 1 Step -1

Rows(i+1).Insert
Next i

--
__________________________________
HTH

Bob

"Sure" wrote in message
...
I have several rows of data and want to insert a new row alternatively.
Suppose I have 10 rows, I want a row to be inserted so that the 2nd row
becomes 3 rd row. Then insert another row between 3rd row (2nd row
previously) and the 4th row so that the 4th row becomes the 5th row. Is it
possible to do it automatically? If so, how?