PasteSpecial into next availble row

Hi all,

Sorry if this has been asked before however ive written the following VBA code that copies a line of data and pastes it into another tab on the next available row. Im struggling to get it to paste values. Could you please help?

Sub COPYANDSAVE()
'
' COPYANDSAVE Macro
'
    Sheets("Line Data").Rows("3:3").Copy Sheets("Log").Range("A1048576").End(xlUp).Offset(1, 0)
    Sheets("DPC Scoring").Select
    Range("D2:E2").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
End Sub

I was hoping the following might work but I get a Compile error: Sub or Funtion not defined

Sub COPYANDSAVE()
'
' COPYANDSAVE Macro
'
    Sheets("Line Data").Rows("3:3").Copy Sheets("Log").Range("A1048576").End(xlUp).Offset(1, 0)
PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("DPC Scoring").Select
    Range("D2:E2").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
End Sub