Oh... now I understand why filter, try this
Code:
Sub Filter_For_Last_Date()
Dim lr As Long
With Sheets("Sheet1")
lr = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("A2:A" & lr).AutoFilter Field:=1, Operator:=xlFilterValues, Criteria1:="=" & .Cells(lr, 1).Value
End With
End Sub