Thread: Sort: Run-time error '1004'

I get the following error when executing my macro:

Run-time error '1004':
Sort reference is not valid. Make sure that its within the data you want to sort, and the first sort box inst the same or blank

The code fragment:

'Get the range sum and record it
        For i = 3 To 12 'REVERB1
            Sum = 0
            For y = iStart To iEnd
                Sum = Sum + Cells(y, i).Value
            Next y
            Sheet22.Cells(2, i - 1).Value = Sum
        Next i
        'Sort
        Sheet22.sort.SortFields.Add Key:=Range("B2:K2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        With Sheet22.sort
            .SetRange Range("B1:K2")
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlLeftToRight
            .SortMethod = xlPinYin
            .Apply
        End With
        
        Sheet3.Activate
        For i = 3 To 12 'REVERB2
            Sum = 0
            For y = iStart To iEnd
                Sum = Sum + Cells(y, i).Value
            Next y
            Sheet22.Cells(4, i - 1).Value = Sum
        Next i
        'Sort
        Sheet22.sort.SortFields.Add Key:=Range("B4:K4"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        With Sheet22.sort
            .SetRange Range("B3:K4")
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlLeftToRight
            .SortMethod = xlPinYin
            .Apply
        End With

The first ".Apply" line gets selected during debugging.

Any ideas on whats wrong?

Thanks in advance

Perhaps

    With Sheet22.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("B2:K2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        .SetRange Range("B1:K2")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlLeftToRight
        .Apply
    End With