Option Explicit

Public Sub main1()
    Dim wshCurr As Worksheet
    Dim rng1 As Range
    Dim rowLast As Long, clnSumMng&, rowStart&
    
    For Each wshCurr In ThisWorkbook.Worksheets
        If wshCurr.Name = "свод" Then
        Else
            Set rng1 = wshCurr.Cells.Find(What:="сумма многоборья", After:=wshCurr.Cells(1, 1), LookIn:=xlValues _
            , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
            If Not rng1 Is Nothing Then
                clnSumMng = rng1.Column
                rowLast = wshCurr.Cells(Rows.Count, clnSumMng).End(xlUp).Row
                Set rng1 = wshCurr.Cells.Find(What:="Номер", After:=wshCurr.Cells(1, 1), LookIn:=xlValues _
                , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False)
                If Not rng1 Is Nothing Then
                    rowStart = rng1.Row + 3
                    With wshCurr
                        Set rng1 = .Range(.Cells(rowStart, 1), .Cells(rowLast, clnSumMng))
                        .Sort.SortFields.Clear
                        .Sort.SortFields.Add Key:=.Range(.Cells(rowStart, clnSumMng), .Cells(rowLast, clnSumMng)), _
                        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
                        With .Sort
                            .SetRange rng1
                            .Header = xlGuess
                            .MatchCase = False
                            .Orientation = xlTopToBottom
                            .SortMethod = xlPinYin
                            .Apply
                        End With
                    End With
                End If
            End If
        End If
    Next
End Sub

Sub Сортировка()
    Dim S, C%, C_end%, R_end%, i%
    On Error GoTo next_:
    For Each S In Sheets
        If Left(S.Name, 2) = "м_" Or Left(S.Name, 2) = "ж_" Then
            C = 0: C = S.Rows("1:5").Find("Сумма многоборья").Column
            C_end = S.Cells(6, S.Columns.Count).End(xlToLeft).Column
            R_end = S.Cells(S.Rows.Count, 2).End(xlUp).Row
            With S.Sort
                .SortFields.Clear
                .SortFields.Add Key:=Range(Cells(6, C), Cells(R_end, C)), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
                .SetRange Range(Cells(6, 2), Cells(R_end, C_end))
                .Header = xlGuess
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
        End If
next_:
    Next S
End Sub

Set rng1 = .Range(.Cells(rowStart, 1), .Cells(rowLast, clnSumMng))