Filtering

This code is working great but I need to add to it   - I need three columns sorted

The First sort would be the code below

The Second sort would be by column D2 ascending which has numbers and text.  I need the number values sorted first in this column the text will say "None" or could be null.

The Third sort would be by Column O2  ascending which is text.


Private Sub sortmainlist()
Dim rng As Range
Dim listnum As Long
 
On Error Resume Next
Application.AddCustomList ListArray:=Array("Top", "Middle", "Bottom")
listnum = Application.GetCustomListNum(Array("Top", "Middle", "Bottom"))

Thank you in advance.
 
With Sheets("Sheet1")
    .Activate
    Set rng = Range(.Cells(2, "A"), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 5))
End With
 
'Note: listnum+1
rng.Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=listnum + 1, _
    MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
    DataOption2:=xlSortNormal
     

Application.DeleteCustomList listnum
     
End Sub