@AVP68
I wasn't thinking of VBA but of PQ.
let
Source = Excel.CurrentWorkbook(){[Name="tbl_Data"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"Item", type text}, {"Overall Rank", Int64.Type}, {"Average", type number}, {"Rank1", Int64.Type}, {"Rank2", Int64.Type}, {"Rank3", Int64.Type}, {"Rank4", Int64.Type}, {"Rank5", Int64.Type}, {"Rank6", Int64.Type}, {"Rank7", Int64.Type}, {"Rank8", Int64.Type}, {"Rank9", Int64.Type}, {"Rank10", Int64.Type}, {"Rank11", Int64.Type}, {"Rank12", Int64.Type}, {"Rank13", Int64.Type}, {"Rank14", Int64.Type}, {"Rank15", Int64.Type}, {"Rank16", Int64.Type}, {"Rank17", Int64.Type}, {"Rank18", Int64.Type}, {"Rank19", Int64.Type}, {"Rank20", Int64.Type}}),
#"Removed Other Columns" = Table.SelectColumns(#"Changed Type",{"Item", "Overall Rank", "Average"}),
#"Sorted Rows" = Table.Sort(#"Removed Other Columns",{{"Overall Rank", Order.Ascending}})
in
#"Sorted Rows"