Replace LastRow with 100 then.

--
__________________________________
HTH

Bob

"daphoenix" wrote in message
...
for like a 100 rows


"Bob Phillips" wrote:

For how far

For i = LastRow to 1 Step -4

Rows(i).Insert
Next i

--
__________________________________
HTH

Bob

"daphoenix" wrote in message
...
After I delete all blank rowes I want to add a blank row every 5th row.