What's wrong here is that the script error?
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
--
<https://forum.pspad.com/read.php?2,71708,71714>
PSPad freeware editor https://www.pspad.com
