Not sorting correctly

I have the filter on in my sheet and below is my code so far.

For some reason that I cannot figure out, it is not sorting the column F to descending, it doesn't look like it's doing anything.

HTML Code: 

Dim LR As Integer
    Dim n As Integer
    
    LR = shData.Range("A65536").End(xlUp).Row

    shData.Activate
    
    shData.Range("A1:M" & LR).Select
    
    Range("A1:M" & LR).Sort Key1:=Range("M1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

I want the data to sort descending and then I will set n to the last row with data in column F, so that way I can set the row source of the listbox from n to LR and that should be all the empty fields in column f


thanks for any help

typo

I meant it is not sorting column M to descending order