Sort not working in a macro

[colinharwood]

Hi
The following code has recently stopped working.
Just wondering if anyone can see why.
It falls over at the line
.Apply

Thanks
Colin

Sub SortAndAddBorders()
'
' Add new member, sort & add borders to members list
'
    Dim LastRow As Integer
    LastRow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
    Range("B6:AZ" & LastRow).Select
    ActiveWorkbook.Worksheets("TMES Members").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("TMES Members").Sort.SortFields.Add2 Key:=Range( _
        "B6:B100"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("TMES Members").Sort
        .SetRange Range("B6:AZ99")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Range("A6").Select
    AddNumbers
    AddBorders
End Sub

 

[colinharwood]

This is a screenshot of the error message when it falls over

 

[colinharwood]

Changed the code to

 lr = Cells(Rows.Count, 1).End(xlUp).Row
     Range("B5:AF" & lr).Select
    Selection.AutoFilter
          ActiveWorkbook.Worksheets("TMES Members").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("TMES Members").AutoFilter.Sort.SortFields.Add2 Key _
        :=Range("B5:B" & lr), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("TMES Members").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Selection.AutoFilter
        
    AddNumbers
    AddBorders

and it now works as expected