Sub Recent()
Application.ScreenUpdating = False
Range("a1").CurrentRegion.Sort Key1:=Range("c1"), Order1:=xlDescending, Key2:=Range("a1"), Order2:=xlAscending
Range("a1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes
Range("a1").CurrentRegion.Sort Key1:=Range("a1"), Order1:=xlAscending
End Sub