No idea why it posted when I wasn't finished, but! here we go again:

For each c in myRng
If Not c = "" then
with c
..Resize(6).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
..offset(7, 0).select
End with
End if
Next c

The insert works, but then it would go skewiff on the next part of the statement offsetting the focus 7 rows down to find the next c in the loop.

As always, many thanks in advance.
Cheers
Mark.