ub InsertExtraBlankCell(
ActiveSheet.Range("d2:d200").Selec
rng = Selection.Rows.Coun
ActiveCell.Offset(0, 0).Selec
Application.ScreenUpdating = Fals
For i = 1 To rn
If ActiveCell.Value = "Reg:" The
Selection.Insert Shift:=xlToRigh
Els
ActiveCell.Offset(1, 0).Selec
End I
Next
Application.ScreenUpdating = Tru
End Su

We were working backwards..so we inserted instead.