Sorting different types of data in 1 column

[UniMord]

Hi! Can you help me with this?

I have a column "WHEN", the data type is Date. In the column, I have either dates or "ASAP". I'd like to sort the table in ascending order, with ASAP preceding the dates.

Thanks.

 

[jimboy]

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