Skip Loop

I'd like to miss out a loop in my For/Next code. Basically I've written the code below which inserts a few rows above the object cell if it doesn't match the previous cell (to seperate my data). In light of the fact that I've inserted rows, the object cell is now a blank cell, so when my For/Next statement continues it insert some more rows thinking that the previous cell doesn't match the object cell. I wondered if it was possible to skip the object cell forward so the For/Next statement can continue in the place it left off (in effect, it would be like going to "Next" twice without doing any of the code in between).

Sub insertrows()

Set SubAss = Range("A11:A10000")
Cr = 0
prevcell = Range("A11")

For Each cell In SubAss
If cell.Value <> prevcell Then
prevcell = cell.Value
cell.Range("A1:A3").EntireRow.Insert
cell.Offset(-2, 1) = " Total"
cell.Offset(-2, 1).Font.Bold = True
r = 6