Not sure you can do that, try this macro, it will work as long as there is data in the last cell of the last column, you will have to change one line of it...
Sub Macro1()
'
Range("a1").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2").Select
Do Until ActiveCell = Empty
If ActiveCell = "ASAP" Then
ActiveCell.Offset(1, 0).Select
Else
Dim firstdate
firstdate = ActiveCell.Address
Application.Goto Reference:="R65536C2" 'change to last column in table
Selection.End(xlUp).Select
Range(ActiveCell, firstdate).Select
Selection.Sort Key1:=Range(ActiveCell, firstdate), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("a1").Select
Exit Sub
End If
Loop
End Sub