[absthechatter]

Got away with....

Next lngLoop
Sheets("CCReport").Activate
Columns("E:F").Select
Application.CutCopyMode = False
Selection.Cut
Range("B1").Insert
Range("B2").Select
Selection.Delete Shift:=xlToLeft
Selection.Delete Shift:=xlToLeft

Range("B1").Select
Selection.Delete Shift:=xlToLeft
Selection.Delete Shift:=xlToLeft



It appears to work. Probably more than I need to write... but!!

Many thanks for all your help.

Abs