Select and Sort

Hello leightjones123,

This macro should do it.

Sub SortIt()

    Dim Rng As Range
    Dim RngEnd As Range
    Dim Wks As Worksheet
    
        Set Wks = ActiveSheet
        
        Set Rng = Wks.Range("A2:M2")
        Set RngEnd = Wlks.Cells(Rows.Count, Rng.Column).End(xlUp)
        If RngEnd.Row < Rng.Row Then Exit Sub Else Set Rng = Wks.Range(Rng, RngEnd)
        
            Rng.Sort Key1:=Rng.Cells(1, 13), Order1:=xlDescending, _
                     Key2:=Rng.Cells(1, 11), Order2:=xlDescending, _
                     Header:=xlGuess, MatchCase:=False, _
                     Orientation:=xlTopToBottom, _
                     DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
    
End Sub

Hello leighjones123,

I take it the macro worked correctly. Should I mark this post as solved?