Thanks Paul_Hossler:


I did this clunky code to achieve the results that I was looking for once my brain got switched back on.


ActiveCell.Offset(1).EntireRow.Insert
 Range("H" & ActiveCell.Offset(1, 0).Row & ":S" & ActiveCell.Offset(1, 0).Row).Interior.ColorIndex = 0
I will try your code anyway.


Thanks