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
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