Code:
sub descending() max = Application.WorksheetFunction.CountA(Range("A1:A65536")) d³ = Application.WorksheetFunction.CountA(Range(Cells(1, 1), Cells(1, 80))) For i = max To 1 Step -1 Range(Cells(i, 1), Cells(i, d³)).Select Selection.Sort Key1:=ActiveCell, Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight Next i end sub