Thanks for the reply mancubus,
I have got it working using...
I just thought there might have been a one line solution.Range("C8:O8").Copy With ActiveSheet.Range("C" & Rows.Count).End(xlUp).Offset(1, 0) .PasteSpecial Paste:=xlPasteValues End With
Thanks again.