Clear contents (maintain formatting) of set column in last row

Oops! Try:

Sub test()
    Dim Last_Row As Long
    Range("A7:P7").Copy Cells(Rows.Count, "A").End(xlUp).Offset(1)
    Last_Row = Range("A" & Rows.Count).End(xlUp).Offset(1).Row
    Range("C" & Last_Row - 1).ClearContents
    Range("G" & Last_Row - 1).ClearContents
    Range("I" & Last_Row - 1 & ":P" & Last_Row - 1).ClearContents
End Sub