Dim iLastRow As Long
Dim i As Long
Const nRows As Long = 5

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = (iLastRow \ nRows) * nRows + 1 To 1 Step -nRows
Rows(i).Insert
Next i


--

HTH

RP
(remove nothere from the email address if mailing direct)


"MartyCole" wrote in message
...

I'm sure this has been asked in the past but I couldn't find it in the
list of replies.

I need a macro to skip down a number (usually 5. sometimes 3 in
different spreadsheets) then insert a blank row. it needs to continue
until it reaches the end of the list (anywhere from 100 to 3000
lines).

I could do this in Lotus years ago but I'm lost in Excel...

Thanks for any help you can provide


--
MartyCole
------------------------------------------------------------------------
MartyCole's Profile: http://www.msusenet.com/member.php?userid=1217
View this thread: http://www.msusenet.com/t-1870429758