Sub sup_date()
Range('a2').Select
Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For i = 1 To Range('A65536').End(xlUp).Row
If ActiveCell < #4/13/2005# Then
Rows(i + 1).Delete
Else
ActiveCell = #4/13/2005# Or ActiveCell > #4/13/2005#
Exit Sub
End If
Next i
End Sub