Help needed to understand code

Hello,

As I said in some previews post I am just starting using Excel and macros. Today I came across a macro that I have to explain to others how it works but can't quite understand it myself.

You can find the code below

Sub FlowchartDocument18_Click()

'
    Range("B45:AB5000").Select
    Selection.Sort Key1:=Range("T45"), Order1:=xlDescending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 106
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 118
    ActiveWindow.ScrollRow = 121
    ActiveWindow.ScrollRow = 125
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 137
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 145
    ActiveWindow.ScrollRow = 149
    ActiveWindow.ScrollRow = 153
    ActiveWindow.ScrollRow = 156
    ActiveWindow.ScrollRow = 160
    ActiveWindow.ScrollRow = 164
    ActiveWindow.ScrollRow = 168
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 176
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 184
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 191
    ActiveWindow.ScrollRow = 195
    ActiveWindow.ScrollRow = 199
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 207
    ActiveWindow.ScrollRow = 211
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 219
    ActiveWindow.ScrollRow = 222
    ActiveWindow.ScrollRow = 226
    ActiveWindow.ScrollRow = 234
    ActiveWindow.ScrollRow = 238
    ActiveWindow.ScrollRow = 246
    ActiveWindow.ScrollRow = 250
    ActiveWindow.ScrollRow = 254
    ActiveWindow.ScrollRow = 257
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 265
    ActiveWindow.ScrollRow = 269
    ActiveWindow.ScrollRow = 273
    ActiveWindow.ScrollRow = 277
    ActiveWindow.ScrollRow = 281
    ActiveWindow.ScrollRow = 285
    ActiveWindow.ScrollRow = 288
    ActiveWindow.ScrollRow = 292
    ActiveWindow.ScrollRow = 296
    ActiveWindow.ScrollRow = 300
    ActiveWindow.ScrollRow = 304
    ActiveWindow.ScrollRow = 308
    ActiveWindow.ScrollRow = 316
    ActiveWindow.ScrollRow = 323
    ActiveWindow.ScrollRow = 331
    ActiveWindow.ScrollRow = 339
    ActiveWindow.ScrollRow = 347
    ActiveWindow.ScrollRow = 355
    ActiveWindow.ScrollRow = 358
    ActiveWindow.ScrollRow = 362
    ActiveWindow.ScrollRow = 366
    ActiveWindow.ScrollRow = 370
    ActiveWindow.ScrollRow = 374
    ActiveWindow.ScrollRow = 378
    ActiveWindow.ScrollRow = 382
    ActiveWindow.ScrollRow = 386
    ActiveWindow.ScrollRow = 389
    ActiveWindow.ScrollRow = 393
    ActiveWindow.ScrollRow = 397
    ActiveWindow.ScrollRow = 405
    ActiveWindow.ScrollRow = 409
    ActiveWindow.ScrollRow = 413
    ActiveWindow.ScrollRow = 417
    ActiveWindow.ScrollRow = 421
    ActiveWindow.ScrollRow = 424
    ActiveWindow.ScrollRow = 432
    ActiveWindow.ScrollRow = 436
    ActiveWindow.ScrollRow = 444
    ActiveWindow.ScrollRow = 448
    ActiveWindow.ScrollRow = 452
    ActiveWindow.ScrollRow = 456
    ActiveWindow.ScrollRow = 459
    ActiveWindow.ScrollRow = 463
    ActiveWindow.ScrollRow = 467
    ActiveWindow.ScrollRow = 471
    ActiveWindow.ScrollRow = 475
    ActiveWindow.ScrollRow = 479
    ActiveWindow.ScrollRow = 487
    ActiveWindow.ScrollRow = 491
    ActiveWindow.ScrollRow = 494
    ActiveWindow.ScrollRow = 498
    ActiveWindow.ScrollRow = 502
    ActiveWindow.ScrollRow = 506
    ActiveWindow.ScrollRow = 510
    ActiveWindow.ScrollRow = 514
    ActiveWindow.ScrollRow = 518
    ActiveWindow.ScrollRow = 525
    ActiveWindow.ScrollRow = 529
    ActiveWindow.ScrollRow = 533
    ActiveWindow.ScrollRow = 541
    ActiveWindow.ScrollRow = 545
    ActiveWindow.ScrollRow = 549
    ActiveWindow.ScrollRow = 557
    ActiveWindow.ScrollRow = 564
    ActiveWindow.ScrollRow = 568
    ActiveWindow.ScrollRow = 572
    ActiveWindow.ScrollRow = 580
    ActiveWindow.ScrollRow = 588
    ActiveWindow.ScrollRow = 592
    ActiveWindow.ScrollRow = 599
    ActiveWindow.ScrollRow = 603
    ActiveWindow.ScrollRow = 607
    ActiveWindow.ScrollRow = 611
    ActiveWindow.ScrollRow = 615
    ActiveWindow.ScrollRow = 619
    ActiveWindow.ScrollRow = 623
    ActiveWindow.ScrollRow = 630
    ActiveWindow.ScrollRow = 634
    ActiveWindow.ScrollRow = 638
    ActiveWindow.ScrollRow = 642
    ActiveWindow.ScrollRow = 650
    ActiveWindow.ScrollRow = 654
    ActiveWindow.ScrollRow = 661
    ActiveWindow.ScrollRow = 669
    ActiveWindow.ScrollRow = 673
    ActiveWindow.ScrollRow = 681
    ActiveWindow.ScrollRow = 685
    ActiveWindow.ScrollRow = 689
    ActiveWindow.ScrollRow = 696
    Selection.Sort Key1:=Range("T45"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
End Sub

Isn't this code order the column T descending and then ascending so basically leaving it the same? And what is the point of all those ActiveWindow.ScrollColumn/ScrollRow?

Thank you!

This is a recorded macro. It records all your keystrokes scrolling down. Hence all the lines of code.

Recorded macros often require some heavy editing to make them into useful code.

The macro performs a sort on the selected range B45:AB5000, based on the values in column T. None of the scroll lines add value.

You can safely delete all lines below the first sort statement, but make sure to leave the End Sub in place.