Paste special in vba

[hadleedog]

I need some help please, I want to paste values only to a second sheet "Records", I've copied my (not working) code below.

Sub Send_to_records()
'

' Keyboard Shortcut: Ctrl+y
Application.ScreenUpdating = False
Sheets("Data").Range("A4:R4").AutoFilter Field:=16, Criteria1:="<>"
Sheets("Data").Range("A4:R4").Copy
Sheets("Records").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PastSpecialxlPasteValues
Application.Goto Sheets("Records").Range("A1")
Application.CutCopyMode = False
Application.ScreenUpdating = True
Sheets("Data").Range("A4:R4").AutoFilter
Sheets("Data").Range("A4,B4,F4,G4,M4:P4").ClearContents


MsgBox "Completed"

End Sub

 

[NoSparks]

.PastSpecialxlPasteValues
should be
.PasteSpecial xlPasteValues

 

[hadleedog]

Thanks NoSparks, I need to learn to read what I write