VBA PasteSpecial problem

[achinfish]

I can't get PasteSpecial to work right, so I have to add the ClearContents line. Any idea what I'm doing wrong?

Private Sub Newrecord_Click()
    Range("4:4").Rows.Insert True
    Worksheets("sheet1").Range("A5:R5").Copy
    Worksheets("sheet1").Range("A4:R4").PasteSpecial Paste:=xlPasteFormats
    Worksheets("sheet1").Range("A4:R4").PasteSpecial Paste:=xlPasteFormulas
    Worksheets("sheet1").Range("A4:G4").ClearContents
End Sub