I have a table to calculate pointed scored by staff in my restaurant.

I have recorded the following macro to sort the data.

Sub sortFLOORstaff()
'
' sortFLOORstaff Macro
'

'
    Range("A6:X15").Select
    ActiveWorkbook.Worksheets("Countsheets").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Countsheets").Sort.SortFields.Add Key:=Range( _
        "X6:X15"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Countsheets").Sort
        .SetRange Range("A6:X15")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
How do I get the sort to keep anyone with the value zero (i.e someone who hasn't worked) at the bottom of the league table?