Leaderboard

Hi,

One way,

Name the range A6:Z15 'Scores' and run the following macro

Sub Sort()
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("X6") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("scores")
        .Header = xlNo
        .MatchCase = False
        .Apply
    End With
End Sub