Sure try this,
Adjust sheet names and ranges as required.
Sub FilterAndCopy()
Dim Lstrw As Long, Rng As Range, Prng
Dim sh As Worksheet, ws As Worksheet
Dim d As String
d = DateSerial(2017, 1, 24) 'jan 24,2017
Set sh = Sheets("Sheet1")
Set ws = Sheets("Sheet2")
With sh
Lstrw = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("A:A").AutoFilter Field:=1, Criteria1:=d
Set Rng = .Range("A2:U" & Lstrw)
End With
With ws
Set Prng = .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
Rng.Copy Prng
End With
sh.AutoFilterMode = False
End Sub
Bookmarks