It was meant to be, but not tested using option explict. There is a typo in
an declaration, but not in the executable statements.

Sub AddRows()
Dim lastrow As Long, i As Long
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = lastrow To 1 Step -1
Rows(i + 1).Insert
Cells(i + 1, 1).Value = Cells(i, 1).Value
Next
End Sub


--
Regards,
Tom Ogilvy

"dmexcel" <davesexcel@gmail.com> wrote in message
news:1140750041.164629.178430@z34g2000cwc.googlegroups.com...
> that's great,
> this code is not option explict, is it??
>