Code Error

excel_321

New Member
Joined
Jul 14, 2014
Messages
36
Hi,

Apologies for the long code below but it is showing up as an error in my workbook as it is too long. How can I shorten it without missing anything out?

Code:
Sub Macro1()
'
' Macro1 Macro
'
'
    ActiveWindow.ScrollColumn = 44
    ActiveWindow.ScrollColumn = 46
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 49
    ActiveWindow.ScrollColumn = 50
    ActiveWindow.ScrollColumn = 52
    ActiveWindow.ScrollColumn = 53
    ActiveWindow.ScrollColumn = 55
    ActiveWindow.ScrollColumn = 56
    ActiveWindow.ScrollColumn = 58
    ActiveWindow.ScrollColumn = 61
    ActiveWindow.ScrollColumn = 62
    ActiveWindow.ScrollColumn = 64
    ActiveWindow.ScrollColumn = 67
    ActiveWindow.ScrollColumn = 68
    ActiveWindow.ScrollColumn = 70
    ActiveWindow.ScrollColumn = 71
    ActiveWindow.ScrollColumn = 73
    ActiveWindow.ScrollColumn = 74
    ActiveWindow.ScrollColumn = 76
    ActiveWindow.ScrollColumn = 77
    ActiveWindow.ScrollColumn = 79
    ActiveWindow.ScrollColumn = 81
    ActiveWindow.ScrollColumn = 82
    ActiveWindow.ScrollColumn = 84
    ActiveWindow.ScrollColumn = 87
    ActiveWindow.ScrollColumn = 88
    ActiveWindow.ScrollColumn = 90
    ActiveWindow.ScrollColumn = 93
    ActiveWindow.ScrollColumn = 94
    ActiveWindow.ScrollColumn = 96
    ActiveWindow.ScrollColumn = 97
    ActiveWindow.ScrollColumn = 99
    ActiveWindow.ScrollColumn = 100
    ActiveWindow.ScrollColumn = 102
    ActiveWindow.ScrollColumn = 103
    ActiveWindow.ScrollColumn = 105
    ActiveWindow.ScrollColumn = 106
    ActiveWindow.ScrollColumn = 108
    ActiveWindow.ScrollColumn = 109
    ActiveWindow.ScrollColumn = 111
    ActiveWindow.ScrollColumn = 114
    ActiveWindow.ScrollColumn = 115
    ActiveWindow.ScrollColumn = 117
    ActiveWindow.ScrollColumn = 119
    ActiveWindow.ScrollColumn = 120
    ActiveWindow.ScrollColumn = 122
    ActiveWindow.ScrollColumn = 123
    ActiveWindow.ScrollColumn = 125
    ActiveWindow.ScrollColumn = 128
    ActiveWindow.ScrollColumn = 129
    ActiveWindow.ScrollColumn = 131
    ActiveWindow.ScrollColumn = 134
    ActiveWindow.ScrollColumn = 135
    ActiveWindow.ScrollColumn = 137
    ActiveWindow.ScrollColumn = 138
    ActiveWindow.ScrollColumn = 137
    ActiveWindow.ScrollColumn = 135
    ActiveWindow.ScrollColumn = 134
    ActiveWindow.ScrollColumn = 132
    ActiveWindow.ScrollColumn = 129
    ActiveWindow.ScrollColumn = 128
    ActiveWindow.ScrollColumn = 126
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 123
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 169
    ActiveWindow.ScrollRow = 178
    ActiveWindow.ScrollRow = 185
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 200
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 228
    ActiveWindow.ScrollRow = 240
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 265
    ActiveWindow.ScrollRow = 274
    ActiveWindow.ScrollRow = 286
    ActiveWindow.ScrollRow = 301
    ActiveWindow.ScrollRow = 317
    ActiveWindow.ScrollRow = 335
    ActiveWindow.ScrollRow = 357
    ActiveWindow.ScrollRow = 378
    ActiveWindow.ScrollRow = 397
    ActiveWindow.ScrollRow = 409
    ActiveWindow.ScrollRow = 428
    ActiveWindow.ScrollRow = 440
    ActiveWindow.ScrollRow = 458
    ActiveWindow.ScrollRow = 474
    ActiveWindow.ScrollRow = 489
    ActiveWindow.ScrollRow = 511
    ActiveWindow.ScrollRow = 529
    ActiveWindow.ScrollRow = 548
    ActiveWindow.ScrollRow = 585
    ActiveWindow.ScrollRow = 600
    ActiveWindow.ScrollRow = 612
    ActiveWindow.ScrollRow = 631
    ActiveWindow.ScrollRow = 640
    ActiveWindow.ScrollRow = 652
    ActiveWindow.ScrollRow = 662
    ActiveWindow.ScrollRow = 665
    ActiveWindow.ScrollRow = 668
    ActiveWindow.ScrollRow = 674
    ActiveWindow.ScrollRow = 677
    ActiveWindow.ScrollRow = 680
    ActiveWindow.ScrollRow = 683
    ActiveWindow.ScrollRow = 689
    ActiveWindow.ScrollRow = 695
    ActiveWindow.ScrollRow = 702
    ActiveWindow.ScrollRow = 714
    ActiveWindow.ScrollRow = 726
    ActiveWindow.ScrollRow = 739
    ActiveWindow.ScrollRow = 754
    ActiveWindow.ScrollRow = 766
    ActiveWindow.ScrollRow = 775
    ActiveWindow.ScrollRow = 782
    ActiveWindow.ScrollRow = 791
    ActiveWindow.ScrollRow = 803
    ActiveWindow.ScrollRow = 819
    ActiveWindow.ScrollRow = 831
    ActiveWindow.ScrollRow = 846
    ActiveWindow.ScrollRow = 855
    ActiveWindow.ScrollRow = 874
    ActiveWindow.ScrollRow = 886
    ActiveWindow.ScrollRow = 899
    ActiveWindow.ScrollRow = 911
    ActiveWindow.ScrollRow = 929
    ActiveWindow.ScrollRow = 939
    ActiveWindow.ScrollRow = 951
    ActiveWindow.ScrollRow = 960
    ActiveWindow.ScrollRow = 969
    ActiveWindow.ScrollRow = 975
    ActiveWindow.ScrollRow = 982
    ActiveWindow.ScrollRow = 991
    ActiveWindow.ScrollRow = 1000
    ActiveWindow.ScrollRow = 1009
    ActiveWindow.ScrollRow = 1019
    ActiveWindow.ScrollRow = 1034
    ActiveWindow.ScrollRow = 1046
    ActiveWindow.ScrollRow = 1056
    ActiveWindow.ScrollRow = 1065
    ActiveWindow.ScrollRow = 1071
    ActiveWindow.ScrollRow = 1080
    ActiveWindow.ScrollRow = 1089
    ActiveWindow.ScrollRow = 1099
    ActiveWindow.ScrollRow = 1105
    ActiveWindow.ScrollRow = 1111
    ActiveWindow.ScrollRow = 1117
    ActiveWindow.ScrollRow = 1123
    ActiveWindow.ScrollRow = 1129
    ActiveWindow.ScrollRow = 1132
    ActiveWindow.ScrollRow = 1136
    ActiveWindow.ScrollRow = 1142
    ActiveWindow.ScrollRow = 1145
    ActiveWindow.ScrollRow = 1148
    ActiveWindow.ScrollRow = 1157
    ActiveWindow.ScrollRow = 1160
    ActiveWindow.ScrollRow = 1166
    ActiveWindow.ScrollRow = 1169
    ActiveWindow.ScrollRow = 1176
    ActiveWindow.ScrollRow = 1179
    ActiveWindow.ScrollRow = 1182
    ActiveWindow.ScrollRow = 1185
    ActiveWindow.ScrollRow = 1188
    ActiveWindow.ScrollRow = 1191
    ActiveWindow.ScrollRow = 1197
    ActiveWindow.ScrollRow = 1200
    ActiveWindow.ScrollRow = 1203
    ActiveWindow.ScrollRow = 1206
    ActiveWindow.ScrollRow = 1209
    ActiveWindow.ScrollRow = 1212
    ActiveWindow.ScrollRow = 1216
    ActiveWindow.ScrollRow = 1219
    ActiveWindow.ScrollRow = 1222
    ActiveWindow.ScrollRow = 1225
    ActiveWindow.ScrollRow = 1228
    ActiveWindow.ScrollRow = 1231
    ActiveWindow.ScrollRow = 1234
    ActiveWindow.ScrollRow = 1237
    ActiveWindow.ScrollRow = 1240
    ActiveWindow.ScrollRow = 1243
    ActiveWindow.ScrollRow = 1246
    ActiveWindow.ScrollRow = 1252
    ActiveWindow.ScrollRow = 1256
    ActiveWindow.ScrollRow = 1259
    ActiveWindow.ScrollRow = 1262
    ActiveWindow.ScrollRow = 1268
    ActiveWindow.ScrollRow = 1271
    ActiveWindow.ScrollRow = 1274
    ActiveWindow.ScrollRow = 1277
    ActiveWindow.ScrollRow = 1280
    ActiveWindow.ScrollRow = 1283
    ActiveWindow.ScrollRow = 1286
    ActiveWindow.ScrollRow = 1289
    ActiveWindow.ScrollRow = 1292
    ActiveWindow.ScrollRow = 1296
    ActiveWindow.ScrollRow = 1299
    ActiveWindow.ScrollRow = 1302
    ActiveWindow.ScrollRow = 1305
    ActiveWindow.ScrollRow = 1308
    ActiveWindow.ScrollRow = 1311
    ActiveWindow.ScrollRow = 1317
    ActiveWindow.ScrollRow = 1320
    ActiveWindow.ScrollRow = 1323
    ActiveWindow.ScrollRow = 1326
    ActiveWindow.ScrollRow = 1329
    ActiveWindow.ScrollRow = 1333
    ActiveWindow.ScrollRow = 1336
    ActiveWindow.ScrollRow = 1339
    ActiveWindow.ScrollRow = 1342
    ActiveWindow.ScrollRow = 1345
    ActiveWindow.ScrollRow = 1348
    ActiveWindow.ScrollRow = 1351
    ActiveWindow.ScrollRow = 1354
    ActiveWindow.ScrollRow = 1357
    ActiveWindow.ScrollRow = 1360
    ActiveWindow.ScrollRow = 1363
    ActiveWindow.ScrollRow = 1366
    ActiveWindow.ScrollRow = 1369
    ActiveWindow.ScrollRow = 1373
    ActiveWindow.ScrollRow = 1376
    ActiveWindow.ScrollRow = 1379
    ActiveWindow.ScrollRow = 1382
    ActiveWindow.ScrollRow = 1385
    ActiveWindow.ScrollRow = 1382
    ActiveWindow.ScrollRow = 1379
    ActiveWindow.ScrollRow = 1376
    ActiveWindow.ScrollRow = 1373
    ActiveWindow.ScrollRow = 1369
    Range("DZ7:DZ1381").Select
    Range("DZ1381").Activate
    Selection.ClearContents
    Range("DX11").Select
    ActiveWindow.SmallScroll ToRight:=-4
    Range("DQ18").Select
    ActiveWindow.SmallScroll ToRight:=-6
    Range("DL22").Select
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 101
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 123
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 132
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 151
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 157
    ActiveWindow.ScrollRow = 160
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 169
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 175
    ActiveWindow.ScrollRow = 178
    ActiveWindow.ScrollRow = 181
    ActiveWindow.ScrollRow = 185
    ActiveWindow.ScrollRow = 188
    ActiveWindow.ScrollRow = 191
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 197
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 206
    ActiveWindow.ScrollRow = 209
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 218
    ActiveWindow.ScrollRow = 221
    ActiveWindow.ScrollRow = 225
    ActiveWindow.ScrollRow = 228
    ActiveWindow.ScrollRow = 231
    ActiveWindow.ScrollRow = 234
    ActiveWindow.ScrollRow = 240
    ActiveWindow.ScrollRow = 243
    ActiveWindow.ScrollRow = 246
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 255
    ActiveWindow.ScrollRow = 258
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 265
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 274
    ActiveWindow.ScrollRow = 280
    ActiveWindow.ScrollRow = 286
    ActiveWindow.ScrollRow = 289
    ActiveWindow.ScrollRow = 292
    ActiveWindow.ScrollRow = 298
    ActiveWindow.ScrollRow = 301
    ActiveWindow.ScrollRow = 305
    ActiveWindow.ScrollRow = 311
    ActiveWindow.ScrollRow = 314
    ActiveWindow.ScrollRow = 317
    ActiveWindow.ScrollRow = 320
    ActiveWindow.ScrollRow = 326
    ActiveWindow.ScrollRow = 329
    ActiveWindow.ScrollRow = 332
    ActiveWindow.ScrollRow = 338
    ActiveWindow.ScrollRow = 341
    ActiveWindow.ScrollRow = 348
    ActiveWindow.ScrollRow = 354
    ActiveWindow.ScrollRow = 357
    ActiveWindow.ScrollRow = 360
    ActiveWindow.ScrollRow = 366
    ActiveWindow.ScrollRow = 375
    ActiveWindow.ScrollRow = 385
    ActiveWindow.ScrollRow = 394
    ActiveWindow.ScrollRow = 403
    ActiveWindow.ScrollRow = 412
    ActiveWindow.ScrollRow = 418
    ActiveWindow.ScrollRow = 428
    ActiveWindow.ScrollRow = 434
    ActiveWindow.ScrollRow = 440
    ActiveWindow.ScrollRow = 446
    ActiveWindow.ScrollRow = 452
    ActiveWindow.ScrollRow = 455
    ActiveWindow.ScrollRow = 462
    ActiveWindow.ScrollRow = 468
    ActiveWindow.ScrollRow = 474
    ActiveWindow.ScrollRow = 480
    ActiveWindow.ScrollRow = 489
    ActiveWindow.ScrollRow = 495
    ActiveWindow.ScrollRow = 505
    ActiveWindow.ScrollRow = 514
    ActiveWindow.ScrollRow = 523
    ActiveWindow.ScrollRow = 532
    ActiveWindow.ScrollRow = 538
    ActiveWindow.ScrollRow = 545
    ActiveWindow.ScrollRow = 551
    ActiveWindow.ScrollRow = 557
    ActiveWindow.ScrollRow = 560
    ActiveWindow.ScrollRow = 563
    ActiveWindow.ScrollRow = 569
    ActiveWindow.ScrollRow = 572
    ActiveWindow.ScrollRow = 575
    ActiveWindow.ScrollRow = 582
    ActiveWindow.ScrollRow = 588
    ActiveWindow.ScrollRow = 594
    ActiveWindow.ScrollRow = 597
    ActiveWindow.ScrollRow = 603
    ActiveWindow.ScrollRow = 606
    ActiveWindow.ScrollRow = 609
    ActiveWindow.ScrollRow = 612
    ActiveWindow.ScrollRow = 622
    ActiveWindow.ScrollRow = 625
    ActiveWindow.ScrollRow = 631
    ActiveWindow.ScrollRow = 634
    ActiveWindow.ScrollRow = 640
    ActiveWindow.ScrollRow = 646
    ActiveWindow.ScrollRow = 652
    ActiveWindow.ScrollRow = 658
    ActiveWindow.ScrollRow = 668
    ActiveWindow.ScrollRow = 671
    ActiveWindow.ScrollRow = 674
    ActiveWindow.ScrollRow = 677
    ActiveWindow.ScrollRow = 686
    ActiveWindow.ScrollRow = 689
    ActiveWindow.ScrollRow = 692
    ActiveWindow.ScrollRow = 698
    ActiveWindow.ScrollRow = 705
    ActiveWindow.ScrollRow = 708
    ActiveWindow.ScrollRow = 714
    ActiveWindow.ScrollRow = 720
    ActiveWindow.ScrollRow = 726
    ActiveWindow.ScrollRow = 729
    ActiveWindow.ScrollRow = 732
    ActiveWindow.ScrollRow = 742
    ActiveWindow.ScrollRow = 745
    ActiveWindow.ScrollRow = 748
    ActiveWindow.ScrollRow = 751
    ActiveWindow.ScrollRow = 754
    ActiveWindow.ScrollRow = 757
    ActiveWindow.ScrollRow = 760
    ActiveWindow.ScrollRow = 763
    ActiveWindow.ScrollRow = 766
    ActiveWindow.ScrollRow = 769
    ActiveWindow.ScrollRow = 772
    ActiveWindow.ScrollRow = 775
    ActiveWindow.ScrollRow = 779
    ActiveWindow.ScrollRow = 785
    ActiveWindow.ScrollRow = 788
    ActiveWindow.ScrollRow = 791
    ActiveWindow.ScrollRow = 794
    ActiveWindow.ScrollRow = 797
    ActiveWindow.ScrollRow = 800
    ActiveWindow.ScrollRow = 803
    ActiveWindow.ScrollRow = 809
    ActiveWindow.ScrollRow = 812
    ActiveWindow.ScrollRow = 815
    ActiveWindow.ScrollRow = 819
    ActiveWindow.ScrollRow = 822
    ActiveWindow.ScrollRow = 825
    ActiveWindow.ScrollRow = 828
    ActiveWindow.ScrollRow = 831
    ActiveWindow.ScrollRow = 834
    ActiveWindow.ScrollRow = 837
    ActiveWindow.ScrollRow = 840
    ActiveWindow.ScrollRow = 843
    ActiveWindow.ScrollRow = 846
    ActiveWindow.ScrollRow = 849
    ActiveWindow.ScrollRow = 852
    ActiveWindow.ScrollRow = 855
    ActiveWindow.ScrollRow = 859
    ActiveWindow.ScrollRow = 862
    ActiveWindow.ScrollRow = 865
    ActiveWindow.ScrollRow = 868
    ActiveWindow.ScrollRow = 871
    ActiveWindow.ScrollRow = 874
    ActiveWindow.ScrollRow = 877
    ActiveWindow.ScrollRow = 880
    ActiveWindow.ScrollRow = 883
    ActiveWindow.ScrollRow = 886
    ActiveWindow.ScrollRow = 889
    ActiveWindow.ScrollRow = 892
    ActiveWindow.ScrollRow = 895
    ActiveWindow.ScrollRow = 899
    ActiveWindow.ScrollRow = 902
    ActiveWindow.ScrollRow = 905
    ActiveWindow.ScrollRow = 908
    ActiveWindow.ScrollRow = 911
    ActiveWindow.ScrollRow = 917
    ActiveWindow.ScrollRow = 920
    ActiveWindow.ScrollRow = 923
    ActiveWindow.ScrollRow = 926
    ActiveWindow.ScrollRow = 929
    ActiveWindow.ScrollRow = 932
    ActiveWindow.ScrollRow = 935
    ActiveWindow.ScrollRow = 942
    ActiveWindow.ScrollRow = 945
    ActiveWindow.ScrollRow = 948
    ActiveWindow.ScrollRow = 951
    ActiveWindow.ScrollRow = 954
    ActiveWindow.ScrollRow = 960
    ActiveWindow.ScrollRow = 963
    ActiveWindow.ScrollRow = 966
    ActiveWindow.ScrollRow = 969
    ActiveWindow.ScrollRow = 972
    ActiveWindow.ScrollRow = 979
    ActiveWindow.ScrollRow = 982
    ActiveWindow.ScrollRow = 985
    ActiveWindow.ScrollRow = 988
    ActiveWindow.ScrollRow = 991
    ActiveWindow.ScrollRow = 994
    ActiveWindow.ScrollRow = 997
    ActiveWindow.ScrollRow = 1000
    ActiveWindow.ScrollRow = 1006
    ActiveWindow.ScrollRow = 1012
    ActiveWindow.ScrollRow = 1015
    ActiveWindow.ScrollRow = 1022
    ActiveWindow.ScrollRow = 1025
    ActiveWindow.ScrollRow = 1031
    ActiveWindow.ScrollRow = 1034
    ActiveWindow.ScrollRow = 1037
    ActiveWindow.ScrollRow = 1040
    ActiveWindow.ScrollRow = 1043
    ActiveWindow.ScrollRow = 1046
    ActiveWindow.ScrollRow = 1049
    ActiveWindow.ScrollRow = 1052
    ActiveWindow.ScrollRow = 1056
    ActiveWindow.ScrollRow = 1059
    ActiveWindow.ScrollRow = 1062
    ActiveWindow.ScrollRow = 1065
    ActiveWindow.ScrollRow = 1068
    ActiveWindow.ScrollRow = 1071
    ActiveWindow.ScrollRow = 1074
    ActiveWindow.ScrollRow = 1077
    ActiveWindow.ScrollRow = 1080
    ActiveWindow.ScrollRow = 1083
    ActiveWindow.ScrollRow = 1086
    ActiveWindow.ScrollRow = 1089
    ActiveWindow.ScrollRow = 1092
    ActiveWindow.ScrollRow = 1096
    ActiveWindow.ScrollRow = 1099
    ActiveWindow.ScrollRow = 1105
    ActiveWindow.ScrollRow = 1108
    ActiveWindow.ScrollRow = 1111
    ActiveWindow.ScrollRow = 1117
    ActiveWindow.ScrollRow = 1120
    ActiveWindow.ScrollRow = 1123
    ActiveWindow.ScrollRow = 1126
    ActiveWindow.ScrollRow = 1129
    ActiveWindow.ScrollRow = 1132
    ActiveWindow.ScrollRow = 1136
    ActiveWindow.ScrollRow = 1139
    ActiveWindow.ScrollRow = 1142
    ActiveWindow.ScrollRow = 1145
    ActiveWindow.ScrollRow = 1148
    ActiveWindow.ScrollRow = 1151
    ActiveWindow.ScrollRow = 1154
    ActiveWindow.ScrollRow = 1157
    ActiveWindow.ScrollRow = 1160
    ActiveWindow.ScrollRow = 1163
    ActiveWindow.ScrollRow = 1166
    ActiveWindow.ScrollRow = 1169
    ActiveWindow.ScrollRow = 1172
    ActiveWindow.ScrollRow = 1176
    ActiveWindow.ScrollRow = 1179
    ActiveWindow.ScrollRow = 1182
    ActiveWindow.ScrollRow = 1185
    ActiveWindow.ScrollRow = 1188
    ActiveWindow.ScrollRow = 1191
    ActiveWindow.ScrollRow = 1194
    ActiveWindow.ScrollRow = 1197
    ActiveWindow.ScrollRow = 1200
    ActiveWindow.ScrollRow = 1203
    ActiveWindow.ScrollRow = 1206
    ActiveWindow.ScrollRow = 1209
    ActiveWindow.ScrollRow = 1212
    ActiveWindow.ScrollRow = 1216
    ActiveWindow.ScrollRow = 1222
    ActiveWindow.ScrollRow = 1225
    ActiveWindow.ScrollRow = 1228
    ActiveWindow.ScrollRow = 1231
    ActiveWindow.ScrollRow = 1234
    ActiveWindow.ScrollRow = 1237
    ActiveWindow.ScrollRow = 1240
    ActiveWindow.ScrollRow = 1243
    ActiveWindow.ScrollRow = 1246
    ActiveWindow.ScrollRow = 1249
    ActiveWindow.ScrollRow = 1252
    ActiveWindow.ScrollRow = 1256
    ActiveWindow.ScrollRow = 1259
    ActiveWindow.ScrollRow = 1262
    ActiveWindow.ScrollRow = 1265
    ActiveWindow.ScrollRow = 1268
    ActiveWindow.ScrollRow = 1271
    ActiveWindow.ScrollRow = 1274
    ActiveWindow.ScrollRow = 1277
    ActiveWindow.ScrollRow = 1280
    ActiveWindow.ScrollRow = 1283
    ActiveWindow.ScrollRow = 1286
    ActiveWindow.ScrollRow = 1289
    ActiveWindow.ScrollRow = 1292
    ActiveWindow.ScrollRow = 1296
    ActiveWindow.ScrollRow = 1299
    ActiveWindow.ScrollRow = 1302
    ActiveWindow.ScrollRow = 1305
    ActiveWindow.ScrollRow = 1308
    ActiveWindow.ScrollRow = 1311
    ActiveWindow.ScrollRow = 1314
    ActiveWindow.ScrollRow = 1317
    ActiveWindow.ScrollRow = 1320
    ActiveWindow.ScrollRow = 1323
    ActiveWindow.ScrollRow = 1326
    ActiveWindow.ScrollRow = 1329
    ActiveWindow.ScrollRow = 1333
    ActiveWindow.ScrollRow = 1336
    ActiveWindow.ScrollRow = 1339
    ActiveWindow.ScrollRow = 1342
    ActiveWindow.ScrollRow = 1345
    ActiveWindow.ScrollRow = 1348
    ActiveWindow.ScrollRow = 1351
    ActiveWindow.ScrollRow = 1354
    ActiveWindow.ScrollRow = 1357
    ActiveWindow.ScrollRow = 1360
    ActiveWindow.ScrollRow = 1363
    ActiveWindow.ScrollRow = 1366
    ActiveWindow.ScrollRow = 1369
    ActiveWindow.ScrollRow = 1373
    ActiveWindow.ScrollRow = 1376
    ActiveWindow.ScrollRow = 1379
    ActiveWindow.ScrollRow = 1382
    ActiveWindow.ScrollRow = 1385
    ActiveWindow.ScrollRow = 1382
    ActiveWindow.ScrollRow = 1379
    ActiveWindow.ScrollRow = 1376
    ActiveWindow.ScrollRow = 1373
    ActiveWindow.ScrollRow = 1369
    ActiveWindow.ScrollRow = 1366
    Range("DL7:DL1381").Select
    Range("DL1381").Activate
    Selection.ClearContents
    ActiveWindow.SmallScroll ToRight:=-2
    Range("DH1382").Select
    ActiveWindow.ScrollRow = 1357
    ActiveWindow.ScrollRow = 1354
    ActiveWindow.ScrollRow = 1348
    ActiveWindow.ScrollRow = 1339
    ActiveWindow.ScrollRow = 1336
    ActiveWindow.ScrollRow = 1333
    ActiveWindow.ScrollRow = 1323
    ActiveWindow.ScrollRow = 1317
    ActiveWindow.ScrollRow = 1308
    ActiveWindow.ScrollRow = 1302
    ActiveWindow.ScrollRow = 1296
    ActiveWindow.ScrollRow = 1283
    ActiveWindow.ScrollRow = 1274
    ActiveWindow.ScrollRow = 1265
    ActiveWindow.ScrollRow = 1252
    ActiveWindow.ScrollRow = 1234
    ActiveWindow.ScrollRow = 1216
    ActiveWindow.ScrollRow = 1203
    ActiveWindow.ScrollRow = 1194
    ActiveWindow.ScrollRow = 1185
    ActiveWindow.ScrollRow = 1172
    ActiveWindow.ScrollRow = 1160
    ActiveWindow.ScrollRow = 1148
    ActiveWindow.ScrollRow = 1136
    ActiveWindow.ScrollRow = 1117
    ActiveWindow.ScrollRow = 1105
    ActiveWindow.ScrollRow = 1089
    ActiveWindow.ScrollRow = 1077
    ActiveWindow.ScrollRow = 1059
    ActiveWindow.ScrollRow = 1037
    ActiveWindow.ScrollRow = 1012
    ActiveWindow.ScrollRow = 985
    ActiveWindow.ScrollRow = 960
    ActiveWindow.ScrollRow = 917
    ActiveWindow.ScrollRow = 899
    ActiveWindow.ScrollRow = 883
    ActiveWindow.ScrollRow = 868
    ActiveWindow.ScrollRow = 855
    ActiveWindow.ScrollRow = 837
    ActiveWindow.ScrollRow = 812
    ActiveWindow.ScrollRow = 791
    ActiveWindow.ScrollRow = 763
    ActiveWindow.ScrollRow = 717
    ActiveWindow.ScrollRow = 695
    ActiveWindow.ScrollRow = 674
    ActiveWindow.ScrollRow = 655
    ActiveWindow.ScrollRow = 640
    ActiveWindow.ScrollRow = 618
    ActiveWindow.ScrollRow = 597
    ActiveWindow.ScrollRow = 560
    ActiveWindow.ScrollRow = 545
    ActiveWindow.ScrollRow = 529
    ActiveWindow.ScrollRow = 511
    ActiveWindow.ScrollRow = 492
    ActiveWindow.ScrollRow = 471
    ActiveWindow.ScrollRow = 452
    ActiveWindow.ScrollRow = 440
    ActiveWindow.ScrollRow = 431
    ActiveWindow.ScrollRow = 418
    ActiveWindow.ScrollRow = 409
    ActiveWindow.ScrollRow = 400
    ActiveWindow.ScrollRow = 391
    ActiveWindow.ScrollRow = 378
    ActiveWindow.ScrollRow = 366
    ActiveWindow.ScrollRow = 357
    ActiveWindow.ScrollRow = 348
    ActiveWindow.ScrollRow = 335
    ActiveWindow.ScrollRow = 323
    ActiveWindow.ScrollRow = 314
    ActiveWindow.ScrollRow = 298
    ActiveWindow.ScrollRow = 292
    ActiveWindow.ScrollRow = 283
    ActiveWindow.ScrollRow = 277
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 265
    ActiveWindow.ScrollRow = 258
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 243
    ActiveWindow.ScrollRow = 237
    ActiveWindow.ScrollRow = 231
    ActiveWindow.ScrollRow = 225
    ActiveWindow.ScrollRow = 221
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 209
    ActiveWindow.ScrollRow = 206
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 197
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 191
    ActiveWindow.ScrollRow = 185
    ActiveWindow.ScrollRow = 181
    ActiveWindow.ScrollRow = 178
    ActiveWindow.ScrollRow = 175
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 169
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 160
    ActiveWindow.ScrollRow = 157
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 151
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 132
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 123
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 101
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 101
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 123
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 132
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 157
    ActiveWindow.ScrollRow = 160
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 169
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 175
    ActiveWindow.ScrollRow = 178
    ActiveWindow.ScrollRow = 185
    ActiveWindow.ScrollRow = 188
    ActiveWindow.ScrollRow = 191
    ActiveWindow.ScrollRow = 197
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 206
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 218
    ActiveWindow.ScrollRow = 221
    ActiveWindow.ScrollRow = 228
    ActiveWindow.ScrollRow = 234
    ActiveWindow.ScrollRow = 243
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 255
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 277
    ActiveWindow.ScrollRow = 283
    ActiveWindow.ScrollRow = 286
    ActiveWindow.ScrollRow = 292
    ActiveWindow.ScrollRow = 301
    ActiveWindow.ScrollRow = 308
    ActiveWindow.ScrollRow = 311
    ActiveWindow.ScrollRow = 314
    ActiveWindow.ScrollRow = 320
    ActiveWindow.ScrollRow = 323
    ActiveWindow.ScrollRow = 326
    ActiveWindow.ScrollRow = 329
    ActiveWindow.ScrollRow = 335
    ActiveWindow.ScrollRow = 341
    ActiveWindow.ScrollRow = 348
    ActiveWindow.ScrollRow = 354
    ActiveWindow.ScrollRow = 357
    ActiveWindow.ScrollRow = 363
    ActiveWindow.ScrollRow = 369
    ActiveWindow.ScrollRow = 372
    ActiveWindow.ScrollRow = 375
    ActiveWindow.ScrollRow = 378
    ActiveWindow.ScrollRow = 385
    ActiveWindow.ScrollRow = 388
    ActiveWindow.ScrollRow = 391
    ActiveWindow.ScrollRow = 394
    ActiveWindow.ScrollRow = 397
    ActiveWindow.ScrollRow = 400
    ActiveWindow.ScrollRow = 406
    ActiveWindow.ScrollRow = 409
    ActiveWindow.ScrollRow = 412
    ActiveWindow.ScrollRow = 418
    ActiveWindow.ScrollRow = 425
    ActiveWindow.ScrollRow = 431
    ActiveWindow.ScrollRow = 440
    ActiveWindow.ScrollRow = 446
    ActiveWindow.ScrollRow = 455
    ActiveWindow.ScrollRow = 462
    ActiveWindow.ScrollRow = 468
    ActiveWindow.ScrollRow = 474
    ActiveWindow.ScrollRow = 480
    ActiveWindow.ScrollRow = 489
    ActiveWindow.ScrollRow = 495
    ActiveWindow.ScrollRow = 502
    ActiveWindow.ScrollRow = 508
    ActiveWindow.ScrollRow = 514
    ActiveWindow.ScrollRow = 520
    ActiveWindow.ScrollRow = 526
    ActiveWindow.ScrollRow = 529
    ActiveWindow.ScrollRow = 535
    ActiveWindow.ScrollRow = 542
    ActiveWindow.ScrollRow = 545
    ActiveWindow.ScrollRow = 551
    ActiveWindow.ScrollRow = 554
    ActiveWindow.ScrollRow = 557
    ActiveWindow.ScrollRow = 560
    ActiveWindow.ScrollRow = 563
    ActiveWindow.ScrollRow = 566
    ActiveWindow.ScrollRow = 575
    ActiveWindow.ScrollRow = 578
    ActiveWindow.ScrollRow = 582
    ActiveWindow.ScrollRow = 588
    ActiveWindow.ScrollRow = 594
    ActiveWindow.ScrollRow = 600
    ActiveWindow.ScrollRow = 603
    ActiveWindow.ScrollRow = 609
    ActiveWindow.ScrollRow = 612
    ActiveWindow.ScrollRow = 615
    ActiveWindow.ScrollRow = 622
    ActiveWindow.ScrollRow = 628
    ActiveWindow.ScrollRow = 634
    ActiveWindow.ScrollRow = 637
    ActiveWindow.ScrollRow = 640
    ActiveWindow.ScrollRow = 643
    ActiveWindow.ScrollRow = 646
    ActiveWindow.ScrollRow = 649
    ActiveWindow.ScrollRow = 652
    ActiveWindow.ScrollRow = 658
    ActiveWindow.ScrollRow = 662
    ActiveWindow.ScrollRow = 668
    ActiveWindow.ScrollRow = 674
    ActiveWindow.ScrollRow = 677
    ActiveWindow.ScrollRow = 680
    ActiveWindow.ScrollRow = 683
    ActiveWindow.ScrollRow = 686
    ActiveWindow.ScrollRow = 692
    ActiveWindow.ScrollRow = 698
    ActiveWindow.ScrollRow = 702
    ActiveWindow.ScrollRow = 708
    ActiveWindow.ScrollRow = 711
    ActiveWindow.ScrollRow = 714
    ActiveWindow.ScrollRow = 717
    ActiveWindow.ScrollRow = 723
    ActiveWindow.ScrollRow = 726
    ActiveWindow.ScrollRow = 732
    ActiveWindow.ScrollRow = 739
    ActiveWindow.ScrollRow = 745
    ActiveWindow.ScrollRow = 748
    ActiveWindow.ScrollRow = 754
    ActiveWindow.ScrollRow = 760
    ActiveWindow.ScrollRow = 763
    ActiveWindow.ScrollRow = 766
    ActiveWindow.ScrollRow = 772
    ActiveWindow.ScrollRow = 775
    ActiveWindow.ScrollRow = 782
    ActiveWindow.ScrollRow = 788
    ActiveWindow.ScrollRow = 794
    ActiveWindow.ScrollRow = 797
    ActiveWindow.ScrollRow = 800
    ActiveWindow.ScrollRow = 803
    ActiveWindow.ScrollRow = 806
    ActiveWindow.ScrollRow = 809
    ActiveWindow.ScrollRow = 812
    ActiveWindow.ScrollRow = 815
    ActiveWindow.ScrollRow = 822
    ActiveWindow.ScrollRow = 825
    ActiveWindow.ScrollRow = 828
    ActiveWindow.ScrollRow = 831
    ActiveWindow.ScrollRow = 834
    ActiveWindow.ScrollRow = 837
    ActiveWindow.ScrollRow = 840
    ActiveWindow.ScrollRow = 846
    ActiveWindow.ScrollRow = 849
    ActiveWindow.ScrollRow = 852
    ActiveWindow.ScrollRow = 855
    ActiveWindow.ScrollRow = 859
    ActiveWindow.ScrollRow = 862
    ActiveWindow.ScrollRow = 865
    ActiveWindow.ScrollRow = 868
    ActiveWindow.ScrollRow = 874
    ActiveWindow.ScrollRow = 877
    ActiveWindow.ScrollRow = 880
    ActiveWindow.ScrollRow = 883
    ActiveWindow.ScrollRow = 886
    ActiveWindow.ScrollRow = 889
    ActiveWindow.ScrollRow = 892
    ActiveWindow.ScrollRow = 895
    ActiveWindow.ScrollRow = 899
    ActiveWindow.ScrollRow = 902
    ActiveWindow.ScrollRow = 905
    ActiveWindow.ScrollRow = 908
    ActiveWindow.ScrollRow = 911
    ActiveWindow.ScrollRow = 914
    ActiveWindow.ScrollRow = 917
    ActiveWindow.ScrollRow = 920
    ActiveWindow.ScrollRow = 923
    ActiveWindow.ScrollRow = 926
    ActiveWindow.ScrollRow = 929
    ActiveWindow.ScrollRow = 932
    ActiveWindow.ScrollRow = 935
    ActiveWindow.ScrollRow = 939
    ActiveWindow.ScrollRow = 942
    ActiveWindow.ScrollRow = 945
    ActiveWindow.ScrollRow = 948
    ActiveWindow.ScrollRow = 954
    ActiveWindow.ScrollRow = 957
    ActiveWindow.ScrollRow = 963
    ActiveWindow.ScrollRow = 966
    ActiveWindow.ScrollRow = 969
    ActiveWindow.ScrollRow = 972
    ActiveWindow.ScrollRow = 975
    ActiveWindow.ScrollRow = 979
    ActiveWindow.ScrollRow = 982
    ActiveWindow.ScrollRow = 985
    ActiveWindow.ScrollRow = 988
    ActiveWindow.ScrollRow = 991
    ActiveWindow.ScrollRow = 994
    ActiveWindow.ScrollRow = 997
    ActiveWindow.ScrollRow = 1000
    ActiveWindow.ScrollRow = 1003
    ActiveWindow.ScrollRow = 1009
    ActiveWindow.ScrollRow = 1012
    ActiveWindow.ScrollRow = 1015
    ActiveWindow.ScrollRow = 1019
    ActiveWindow.ScrollRow = 1022
    ActiveWindow.ScrollRow = 1025
    ActiveWindow.ScrollRow = 1028
    ActiveWindow.ScrollRow = 1031
    ActiveWindow.ScrollRow = 1034
    ActiveWindow.ScrollRow = 1037
    ActiveWindow.ScrollRow = 1040
    ActiveWindow.ScrollRow = 1043
    ActiveWindow.ScrollRow = 1046
    ActiveWindow.ScrollRow = 1049
    ActiveWindow.ScrollRow = 1052
    ActiveWindow.ScrollRow = 1056
    ActiveWindow.ScrollRow = 1059
    ActiveWindow.ScrollRow = 1062
    ActiveWindow.ScrollRow = 1065
    ActiveWindow.ScrollRow = 1068
    ActiveWindow.ScrollRow = 1071
    ActiveWindow.ScrollRow = 1074
    ActiveWindow.ScrollRow = 1077
    ActiveWindow.ScrollRow = 1080
    ActiveWindow.ScrollRow = 1083
    ActiveWindow.ScrollRow = 1086
    ActiveWindow.ScrollRow = 1089
    ActiveWindow.ScrollRow = 1092
    ActiveWindow.ScrollRow = 1096
    ActiveWindow.ScrollRow = 1099
    ActiveWindow.ScrollRow = 1102
    ActiveWindow.ScrollRow = 1105
    ActiveWindow.ScrollRow = 1108
    ActiveWindow.ScrollRow = 1111
    ActiveWindow.ScrollRow = 1114
    ActiveWindow.ScrollRow = 1117
    ActiveWindow.ScrollRow = 1120
    ActiveWindow.ScrollRow = 1123
    ActiveWindow.ScrollRow = 1126
    ActiveWindow.ScrollRow = 1129
    ActiveWindow.ScrollRow = 1132
    ActiveWindow.ScrollRow = 1136
    ActiveWindow.ScrollRow = 1139
    ActiveWindow.ScrollRow = 1142
    ActiveWindow.ScrollRow = 1145
    ActiveWindow.ScrollRow = 1148
    ActiveWindow.ScrollRow = 1151
    ActiveWindow.ScrollRow = 1154
    ActiveWindow.ScrollRow = 1157
    ActiveWindow.ScrollRow = 1160
    ActiveWindow.ScrollRow = 1163
    ActiveWindow.ScrollRow = 1166
    ActiveWindow.ScrollRow = 1169
    ActiveWindow.ScrollRow = 1172
    ActiveWindow.ScrollRow = 1176
    ActiveWindow.ScrollRow = 1179
    ActiveWindow.ScrollRow = 1182
    ActiveWindow.ScrollRow = 1185
    ActiveWindow.ScrollRow = 1188
    ActiveWindow.ScrollRow = 1191
    ActiveWindow.ScrollRow = 1194
    ActiveWindow.ScrollRow = 1197
    ActiveWindow.ScrollRow = 1200
    ActiveWindow.ScrollRow = 1203
    ActiveWindow.ScrollRow = 1206
    ActiveWindow.ScrollRow = 1209
    ActiveWindow.ScrollRow = 1212
    ActiveWindow.ScrollRow = 1216
    ActiveWindow.ScrollRow = 1219
    ActiveWindow.ScrollRow = 1222
    ActiveWindow.ScrollRow = 1225
    ActiveWindow.ScrollRow = 1228
    ActiveWindow.ScrollRow = 1231
    ActiveWindow.ScrollRow = 1234
    ActiveWindow.ScrollRow = 1237
    ActiveWindow.ScrollRow = 1240
    ActiveWindow.ScrollRow = 1243
    ActiveWindow.ScrollRow = 1246
    ActiveWindow.ScrollRow = 1249
    ActiveWindow.ScrollRow = 1252
    ActiveWindow.ScrollRow = 1256
    ActiveWindow.ScrollRow = 1259
    ActiveWindow.ScrollRow = 1262
    ActiveWindow.ScrollRow = 1265
    ActiveWindow.ScrollRow = 1268
    ActiveWindow.ScrollRow = 1271
    ActiveWindow.ScrollRow = 1274
    ActiveWindow.ScrollRow = 1277
    ActiveWindow.ScrollRow = 1280
    ActiveWindow.ScrollRow = 1283
    ActiveWindow.ScrollRow = 1286
    ActiveWindow.ScrollRow = 1289
    ActiveWindow.ScrollRow = 1292
    ActiveWindow.ScrollRow = 1296
    ActiveWindow.ScrollRow = 1299
    ActiveWindow.ScrollRow = 1302
    ActiveWindow.ScrollRow = 1305
    ActiveWindow.ScrollRow = 1308
    ActiveWindow.ScrollRow = 1311
    ActiveWindow.ScrollRow = 1314
    ActiveWindow.ScrollRow = 1317
    ActiveWindow.ScrollRow = 1320
    ActiveWindow.ScrollRow = 1323
    ActiveWindow.ScrollRow = 1326
    ActiveWindow.ScrollRow = 1329
    ActiveWindow.ScrollRow = 1333
    ActiveWindow.ScrollRow = 1336
    ActiveWindow.ScrollRow = 1339
    ActiveWindow.ScrollRow = 1342
    ActiveWindow.ScrollRow = 1345
    ActiveWindow.ScrollRow = 1348
    ActiveWindow.ScrollRow = 1351
    ActiveWindow.ScrollRow = 1354
    ActiveWindow.ScrollRow = 1357
    ActiveWindow.ScrollRow = 1360
    ActiveWindow.ScrollRow = 1363
    ActiveWindow.ScrollRow = 1366
    ActiveWindow.ScrollRow = 1369
    ActiveWindow.ScrollRow = 1373
    ActiveWindow.ScrollRow = 1376
    ActiveWindow.ScrollRow = 1379
    ActiveWindow.ScrollRow = 1382
    ActiveWindow.ScrollRow = 1385
    ActiveWindow.ScrollRow = 1382
    ActiveWindow.ScrollRow = 1379
    ActiveWindow.ScrollRow = 1376
    ActiveWindow.ScrollRow = 1373
    Range("DI17").Select
    ActiveWindow.SmallScroll ToRight:=-6
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 101
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 123
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 132
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 151
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 157
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 175
    ActiveWindow.ScrollRow = 178
    ActiveWindow.ScrollRow = 181
    ActiveWindow.ScrollRow = 185
    ActiveWindow.ScrollRow = 188
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 200
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 218
    ActiveWindow.ScrollRow = 221
    ActiveWindow.ScrollRow = 234
    ActiveWindow.ScrollRow = 243
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 265
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 280
    ActiveWindow.ScrollRow = 286
    ActiveWindow.ScrollRow = 289
    ActiveWindow.ScrollRow = 298
    ActiveWindow.ScrollRow = 301
    ActiveWindow.ScrollRow = 308
    ActiveWindow.ScrollRow = 311
    ActiveWindow.ScrollRow = 320
    ActiveWindow.ScrollRow = 323
    ActiveWindow.ScrollRow = 329
    ActiveWindow.ScrollRow = 335
    ActiveWindow.ScrollRow = 341
    ActiveWindow.ScrollRow = 345
    ActiveWindow.ScrollRow = 348
    ActiveWindow.ScrollRow = 354
    ActiveWindow.ScrollRow = 357
    ActiveWindow.ScrollRow = 360
    ActiveWindow.ScrollRow = 363
    ActiveWindow.ScrollRow = 366
    ActiveWindow.ScrollRow = 369
    ActiveWindow.ScrollRow = 372
    ActiveWindow.ScrollRow = 375
    ActiveWindow.ScrollRow = 381
    ActiveWindow.ScrollRow = 385
    ActiveWindow.ScrollRow = 391
    ActiveWindow.ScrollRow = 397
    ActiveWindow.ScrollRow = 403
    ActiveWindow.ScrollRow = 409
    ActiveWindow.ScrollRow = 418
    ActiveWindow.ScrollRow = 428
    ActiveWindow.ScrollRow = 440
    ActiveWindow.ScrollRow = 455
    ActiveWindow.ScrollRow = 468
    ActiveWindow.ScrollRow = 480
    ActiveWindow.ScrollRow = 486
    ActiveWindow.ScrollRow = 498
    ActiveWindow.ScrollRow = 508
    ActiveWindow.ScrollRow = 523
    ActiveWindow.ScrollRow = 535
    ActiveWindow.ScrollRow = 548
    ActiveWindow.ScrollRow = 557
    ActiveWindow.ScrollRow = 569
    ActiveWindow.ScrollRow = 578
    ActiveWindow.ScrollRow = 588
    ActiveWindow.ScrollRow = 597
    ActiveWindow.ScrollRow = 606
    ActiveWindow.ScrollRow = 615
    ActiveWindow.ScrollRow = 625
    ActiveWindow.ScrollRow = 631
    ActiveWindow.ScrollRow = 637
    ActiveWindow.ScrollRow = 646
    ActiveWindow.ScrollRow = 658
    ActiveWindow.ScrollRow = 665
    ActiveWindow.ScrollRow = 677
    ActiveWindow.ScrollRow = 686
    ActiveWindow.ScrollRow = 698
    ActiveWindow.ScrollRow = 708
    ActiveWindow.ScrollRow = 720
    ActiveWindow.ScrollRow = 729
    ActiveWindow.ScrollRow = 739
    ActiveWindow.ScrollRow = 745
    ActiveWindow.ScrollRow = 754
    ActiveWindow.ScrollRow = 760
    ActiveWindow.ScrollRow = 766
    ActiveWindow.ScrollRow = 775
    ActiveWindow.ScrollRow = 785
    ActiveWindow.ScrollRow = 791
    ActiveWindow.ScrollRow = 797
    ActiveWindow.ScrollRow = 806
    ActiveWindow.ScrollRow = 812
    ActiveWindow.ScrollRow = 825
    ActiveWindow.ScrollRow = 834
    ActiveWindow.ScrollRow = 846
    ActiveWindow.ScrollRow = 855
    ActiveWindow.ScrollRow = 865
    ActiveWindow.ScrollRow = 874
    ActiveWindow.ScrollRow = 886
    ActiveWindow.ScrollRow = 895
    ActiveWindow.ScrollRow = 905
    ActiveWindow.ScrollRow = 914
    ActiveWindow.ScrollRow = 926
    ActiveWindow.ScrollRow = 939
    ActiveWindow.ScrollRow = 960
    ActiveWindow.ScrollRow = 988
    ActiveWindow.ScrollRow = 1009
    ActiveWindow.ScrollRow = 1043
    ActiveWindow.ScrollRow = 1056
    ActiveWindow.ScrollRow = 1068
    ActiveWindow.ScrollRow = 1074
    ActiveWindow.ScrollRow = 1086
    ActiveWindow.ScrollRow = 1096
    ActiveWindow.ScrollRow = 1102
    ActiveWindow.ScrollRow = 1108
    ActiveWindow.ScrollRow = 1114
    ActiveWindow.ScrollRow = 1123
    ActiveWindow.ScrollRow = 1129
    ActiveWindow.ScrollRow = 1136
    ActiveWindow.ScrollRow = 1142
    ActiveWindow.ScrollRow = 1148
    ActiveWindow.ScrollRow = 1154
    ActiveWindow.ScrollRow = 1157
    ActiveWindow.ScrollRow = 1160
    ActiveWindow.ScrollRow = 1163
    ActiveWindow.ScrollRow = 1169
    ActiveWindow.ScrollRow = 1176
    ActiveWindow.ScrollRow = 1182
    ActiveWindow.ScrollRow = 1185
    ActiveWindow.ScrollRow = 1188
    ActiveWindow.ScrollRow = 1194
    ActiveWindow.ScrollRow = 1200
    ActiveWindow.ScrollRow = 1203
    ActiveWindow.ScrollRow = 1206
    ActiveWindow.ScrollRow = 1212
    ActiveWindow.ScrollRow = 1216
    ActiveWindow.ScrollRow = 1219
    ActiveWindow.ScrollRow = 1222
    ActiveWindow.ScrollRow = 1225
    ActiveWindow.ScrollRow = 1228
    ActiveWindow.ScrollRow = 1234
    ActiveWindow.ScrollRow = 1237
    ActiveWindow.ScrollRow = 1243
    ActiveWindow.ScrollRow = 1249
    ActiveWindow.ScrollRow = 1256
    ActiveWindow.ScrollRow = 1262
    ActiveWindow.ScrollRow = 1265
    ActiveWindow.ScrollRow = 1268
    ActiveWindow.ScrollRow = 1271
    ActiveWindow.ScrollRow = 1274
    ActiveWindow.ScrollRow = 1277
    ActiveWindow.ScrollRow = 1280
    ActiveWindow.ScrollRow = 1283
    ActiveWindow.ScrollRow = 1286
    ActiveWindow.ScrollRow = 1292
    ActiveWindow.ScrollRow = 1299
    ActiveWindow.ScrollRow = 1302
    ActiveWindow.ScrollRow = 1305
    ActiveWindow.ScrollRow = 1308
    ActiveWindow.ScrollRow = 1311
    ActiveWindow.ScrollRow = 1314
    ActiveWindow.ScrollRow = 1317
    ActiveWindow.ScrollRow = 1320
    ActiveWindow.ScrollRow = 1323
    ActiveWindow.ScrollRow = 1329
    ActiveWindow.ScrollRow = 1333
    ActiveWindow.ScrollRow = 1339
    ActiveWindow.ScrollRow = 1342
    ActiveWindow.ScrollRow = 1345
    ActiveWindow.ScrollRow = 1348
    ActiveWindow.ScrollRow = 1351
    ActiveWindow.ScrollRow = 1354
    ActiveWindow.ScrollRow = 1357
    ActiveWindow.ScrollRow = 1360
    ActiveWindow.ScrollRow = 1366
    ActiveWindow.ScrollRow = 1369
    ActiveWindow.ScrollRow = 1373
    ActiveWindow.ScrollRow = 1376
    ActiveWindow.ScrollRow = 1379
    ActiveWindow.ScrollRow = 1382
    ActiveWindow.ScrollRow = 1385
    ActiveWindow.ScrollRow = 1382
    ActiveWindow.ScrollRow = 1379
    ActiveWindow.ScrollRow = 1376
    ActiveWindow.ScrollRow = 1373
    ActiveWindow.ScrollRow = 1369
    ActiveWindow.ScrollRow = 1366
    Range("DB7:DC1381").Select
    Range("DC1381").Activate
    Selection.ClearContents
    Range("CX7:CX1381").Select
    Range("CX1381").Activate
    Selection.ClearContents
    Range("CO7:CP1381").Select
    Range("CP1381").Activate
    Selection.ClearContents
    Range("CI1381").Select
    ActiveWindow.SmallScroll Down:=3
    Range("CK7:CK1381").Select
    Range("CK1381").Activate
    Selection.ClearContents
    Range("CB7:CC1381").Select
    Range("CC1381").Activate
    Selection.ClearContents
    Range("BX7:BX1381").Select
    Range("BX1381").Activate
    Selection.ClearContents
    Range("BO7:BP1381").Select
    Range("BP1381").Activate
    Selection.ClearContents
    Range("BK7:BK1381").Select
    Range("BK1381").Activate
    Selection.ClearContents
    Range("BB7:BC1381").Select
    Range("BC1381").Activate
    Selection.ClearContents
    Range("AX7:AX1381").Select
    Range("AX1381").Activate
    Selection.ClearContents
    Range("AO7:AP1381").Select
    Range("AP1381").Activate
    Selection.ClearContents
    Range("AI7:AJ1381").Select
    Range("AJ1381").Activate
    Selection.ClearContents
    Range("AF7:AF1381").Select
    Range("AF1381").Activate
    Selection.ClearContents
    Range("R7:R1381").Select
    Range("R1381").Activate
    Selection.ClearContents
    Range("M7:Q1381").Select
    Range("Q1381").Activate
    Selection.ClearContents
    Columns("D:J").Select
    Selection.EntireColumn.Hidden = False
    Range("B7:J1381").Select
    Range("J1381").Activate
    Selection.ClearContents
    Columns("E:I").Select
    Selection.EntireColumn.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Range("AU1380").Select
    ActiveSheet.Unprotect
    Range("AU1380:AW1380").Select
    Selection.AutoFill Destination:=Range("AU7:AW1380"), Type:=xlFillDefault
    Range("AU7:AW1380").Select
    ActiveWindow.SmallScroll ToRight:=12
    ActiveWindow.SmallScroll Down:=111
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 132
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 157
    ActiveWindow.ScrollRow = 160
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 169
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 175
    ActiveWindow.ScrollRow = 178
    ActiveWindow.ScrollRow = 181
    ActiveWindow.ScrollRow = 185
    ActiveWindow.ScrollRow = 188
    ActiveWindow.ScrollRow = 191
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 200
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 206
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 221
    ActiveWindow.ScrollRow = 225
    ActiveWindow.ScrollRow = 231
    ActiveWindow.ScrollRow = 234
    ActiveWindow.ScrollRow = 237
    ActiveWindow.ScrollRow = 240
    ActiveWindow.ScrollRow = 246
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 258
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 265
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 274
    ActiveWindow.ScrollRow = 277
    ActiveWindow.ScrollRow = 283
    ActiveWindow.ScrollRow = 286
    ActiveWindow.ScrollRow = 289
    ActiveWindow.ScrollRow = 292
    ActiveWindow.ScrollRow = 301
    ActiveWindow.ScrollRow = 305
    ActiveWindow.ScrollRow = 311
    ActiveWindow.ScrollRow = 317
    ActiveWindow.ScrollRow = 326
    ActiveWindow.ScrollRow = 329
    ActiveWindow.ScrollRow = 332
    ActiveWindow.ScrollRow = 338
    ActiveWindow.ScrollRow = 348
    ActiveWindow.ScrollRow = 354
    ActiveWindow.ScrollRow = 360
    ActiveWindow.ScrollRow = 366
    ActiveWindow.ScrollRow = 372
    ActiveWindow.ScrollRow = 378
    ActiveWindow.ScrollRow = 385
    ActiveWindow.ScrollRow = 388
    ActiveWindow.ScrollRow = 391
    ActiveWindow.ScrollRow = 400
    ActiveWindow.ScrollRow = 403
    ActiveWindow.ScrollRow = 409
    ActiveWindow.ScrollRow = 415
    ActiveWindow.ScrollRow = 421
    ActiveWindow.ScrollRow = 428
    ActiveWindow.ScrollRow = 434
    ActiveWindow.ScrollRow = 443
    ActiveWindow.ScrollRow = 449
    ActiveWindow.ScrollRow = 458
    ActiveWindow.ScrollRow = 465
    ActiveWindow.ScrollRow = 468
    ActiveWindow.ScrollRow = 474
    ActiveWindow.ScrollRow = 477
    ActiveWindow.ScrollRow = 480
    ActiveWindow.ScrollRow = 483
    ActiveWindow.ScrollRow = 489
    ActiveWindow.ScrollRow = 492
    ActiveWindow.ScrollRow = 495
    ActiveWindow.ScrollRow = 502
    ActiveWindow.ScrollRow = 508
    ActiveWindow.ScrollRow = 514
    ActiveWindow.ScrollRow = 517
    ActiveWindow.ScrollRow = 526
    ActiveWindow.ScrollRow = 532
    ActiveWindow.ScrollRow = 538
    ActiveWindow.ScrollRow = 545
    ActiveWindow.ScrollRow = 548
    ActiveWindow.ScrollRow = 557
    ActiveWindow.ScrollRow = 560
    ActiveWindow.ScrollRow = 566
    ActiveWindow.ScrollRow = 569
    ActiveWindow.ScrollRow = 578
    ActiveWindow.ScrollRow = 585
    ActiveWindow.ScrollRow = 591
    ActiveWindow.ScrollRow = 597
    ActiveWindow.ScrollRow = 606
    ActiveWindow.ScrollRow = 612
    ActiveWindow.ScrollRow = 615
    ActiveWindow.ScrollRow = 622
    ActiveWindow.ScrollRow = 628
    ActiveWindow.ScrollRow = 637
    ActiveWindow.ScrollRow = 640
    ActiveWindow.ScrollRow = 643
    ActiveWindow.ScrollRow = 652
    ActiveWindow.ScrollRow = 658
    ActiveWindow.ScrollRow = 665
    ActiveWindow.ScrollRow = 668
    ActiveWindow.ScrollRow = 677
    ActiveWindow.ScrollRow = 680
    ActiveWindow.ScrollRow = 689
    ActiveWindow.ScrollRow = 692
    ActiveWindow.ScrollRow = 702
    ActiveWindow.ScrollRow = 705
    ActiveWindow.ScrollRow = 708
    ActiveWindow.ScrollRow = 711
    ActiveWindow.ScrollRow = 717
    ActiveWindow.ScrollRow = 720
    ActiveWindow.ScrollRow = 723
    ActiveWindow.ScrollRow = 732
    ActiveWindow.ScrollRow = 735
    ActiveWindow.ScrollRow = 742
    ActiveWindow.ScrollRow = 745
    ActiveWindow.ScrollRow = 754
    ActiveWindow.ScrollRow = 760
    ActiveWindow.ScrollRow = 766
    ActiveWindow.ScrollRow = 772
    ActiveWindow.ScrollRow = 779
    ActiveWindow.ScrollRow = 785
    ActiveWindow.ScrollRow = 788
    ActiveWindow.ScrollRow = 791
    ActiveWindow.ScrollRow = 797
    ActiveWindow.ScrollRow = 800
    ActiveWindow.ScrollRow = 803
    ActiveWindow.ScrollRow = 812
    ActiveWindow.ScrollRow = 815
    ActiveWindow.ScrollRow = 819
    ActiveWindow.ScrollRow = 822
    ActiveWindow.ScrollRow = 828
    ActiveWindow.ScrollRow = 834
    ActiveWindow.ScrollRow = 837
    ActiveWindow.ScrollRow = 843
    ActiveWindow.ScrollRow = 852
    ActiveWindow.ScrollRow = 855
    ActiveWindow.ScrollRow = 862
    ActiveWindow.ScrollRow = 865
    ActiveWindow.ScrollRow = 868
    ActiveWindow.ScrollRow = 871
    ActiveWindow.ScrollRow = 880
    ActiveWindow.ScrollRow = 883
    ActiveWindow.ScrollRow = 889
    ActiveWindow.ScrollRow = 895
    ActiveWindow.ScrollRow = 905
    ActiveWindow.ScrollRow = 914
    ActiveWindow.ScrollRow = 923
    ActiveWindow.ScrollRow = 935
    ActiveWindow.ScrollRow = 945
    ActiveWindow.ScrollRow = 954
    ActiveWindow.ScrollRow = 960
    ActiveWindow.ScrollRow = 969
    ActiveWindow.ScrollRow = 979
    ActiveWindow.ScrollRow = 991
    ActiveWindow.ScrollRow = 1003
    ActiveWindow.ScrollRow = 1019
    ActiveWindow.ScrollRow = 1031
    ActiveWindow.ScrollRow = 1049
    ActiveWindow.ScrollRow = 1068
    ActiveWindow.ScrollRow = 1080
    ActiveWindow.ScrollRow = 1086
    ActiveWindow.ScrollRow = 1092
    ActiveWindow.ScrollRow = 1099
    ActiveWindow.ScrollRow = 1102
    ActiveWindow.ScrollRow = 1108
    ActiveWindow.ScrollRow = 1111
    ActiveWindow.ScrollRow = 1117
    ActiveWindow.ScrollRow = 1120
    ActiveWindow.ScrollRow = 1123
    ActiveWindow.ScrollRow = 1129
    ActiveWindow.ScrollRow = 1132
    ActiveWindow.ScrollRow = 1136
    ActiveWindow.ScrollRow = 1142
    ActiveWindow.ScrollRow = 1148
    ActiveWindow.ScrollRow = 1151
    ActiveWindow.ScrollRow = 1154
    ActiveWindow.ScrollRow = 1157
    ActiveWindow.ScrollRow = 1160
    ActiveWindow.ScrollRow = 1163
    ActiveWindow.ScrollRow = 1166
    ActiveWindow.ScrollRow = 1169
    ActiveWindow.ScrollRow = 1172
    ActiveWindow.ScrollRow = 1176
    ActiveWindow.ScrollRow = 1179
    ActiveWindow.ScrollRow = 1185
    ActiveWindow.ScrollRow = 1188
    ActiveWindow.ScrollRow = 1191
    ActiveWindow.ScrollRow = 1194
    ActiveWindow.ScrollRow = 1197
    ActiveWindow.ScrollRow = 1200
    ActiveWindow.ScrollRow = 1203
    ActiveWindow.ScrollRow = 1206
    ActiveWindow.ScrollRow = 1209
    ActiveWindow.ScrollRow = 1212
    ActiveWindow.ScrollRow = 1216
    ActiveWindow.ScrollRow = 1219
    ActiveWindow.ScrollRow = 1222
    ActiveWindow.ScrollRow = 1225
    ActiveWindow.ScrollRow = 1228
    ActiveWindow.ScrollRow = 1231
    ActiveWindow.ScrollRow = 1234
    ActiveWindow.ScrollRow = 1237
    ActiveWindow.ScrollRow = 1240
    ActiveWindow.ScrollRow = 1243
    ActiveWindow.ScrollRow = 1246
    ActiveWindow.ScrollRow = 1252
    ActiveWindow.ScrollRow = 1256
    ActiveWindow.ScrollRow = 1259
    ActiveWindow.ScrollRow = 1262
    ActiveWindow.ScrollRow = 1265
    ActiveWindow.ScrollRow = 1268
    ActiveWindow.ScrollRow = 1271
    ActiveWindow.ScrollRow = 1274
    ActiveWindow.ScrollRow = 1277
    ActiveWindow.ScrollRow = 1280
    ActiveWindow.ScrollRow = 1283
    ActiveWindow.ScrollRow = 1286
    ActiveWindow.ScrollRow = 1289
    ActiveWindow.ScrollRow = 1292
    ActiveWindow.ScrollRow = 1296
    ActiveWindow.ScrollRow = 1299
    ActiveWindow.ScrollRow = 1302
    ActiveWindow.ScrollRow = 1305
    ActiveWindow.ScrollRow = 1308
    ActiveWindow.ScrollRow = 1311
    ActiveWindow.ScrollRow = 1314
    ActiveWindow.ScrollRow = 1317
    ActiveWindow.ScrollRow = 1320
    ActiveWindow.ScrollRow = 1323
    ActiveWindow.ScrollRow = 1326
    ActiveWindow.ScrollRow = 1329
    ActiveWindow.ScrollRow = 1333
    ActiveWindow.ScrollRow = 1336
    ActiveWindow.ScrollRow = 1339
    ActiveWindow.ScrollRow = 1342
    ActiveWindow.ScrollRow = 1345
    ActiveWindow.ScrollRow = 1348
    ActiveWindow.ScrollRow = 1351
    ActiveWindow.ScrollRow = 1354
    ActiveWindow.ScrollRow = 1357
    ActiveWindow.ScrollRow = 1360
    ActiveWindow.ScrollRow = 1363
    ActiveWindow.ScrollRow = 1366
    ActiveWindow.ScrollRow = 1369
    ActiveWindow.ScrollRow = 1373
    ActiveWindow.SmallScroll ToRight:=-1
    Range("BH1380:BJ1380").Select
    Selection.AutoFill Destination:=Range("BH7:BJ1380"), Type:=xlFillDefault
    Range("BH7:BJ1380").Select
    Range("CB1381").Select
    ActiveWindow.SmallScroll Down:=3
    Range("BU1380:BW1380").Select
    Selection.AutoFill Destination:=Range("BU7:BW1380"), Type:=xlFillDefault
    Range("BU7:BW1380").Select
    ActiveWindow.SmallScroll ToRight:=12
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 101
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 123
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 132
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 151
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 178
    ActiveWindow.ScrollRow = 188
    ActiveWindow.ScrollRow = 197
    ActiveWindow.ScrollRow = 206
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 221
    ActiveWindow.ScrollRow = 231
    ActiveWindow.ScrollRow = 240
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 258
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 280
    ActiveWindow.ScrollRow = 289
    ActiveWindow.ScrollRow = 305
    ActiveWindow.ScrollRow = 320
    ActiveWindow.ScrollRow = 335
    ActiveWindow.ScrollRow = 348
    ActiveWindow.ScrollRow = 363
    ActiveWindow.ScrollRow = 375
    ActiveWindow.ScrollRow = 388
    ActiveWindow.ScrollRow = 409
    ActiveWindow.ScrollRow = 428
    ActiveWindow.ScrollRow = 443
    ActiveWindow.ScrollRow = 465
    ActiveWindow.ScrollRow = 477
    ActiveWindow.ScrollRow = 495
    ActiveWindow.ScrollRow = 529
    ActiveWindow.ScrollRow = 542
    ActiveWindow.ScrollRow = 557
    ActiveWindow.ScrollRow = 569
    ActiveWindow.ScrollRow = 588
    ActiveWindow.ScrollRow = 612
    ActiveWindow.ScrollRow = 649
    ActiveWindow.ScrollRow = 671
    ActiveWindow.ScrollRow = 689
    ActiveWindow.ScrollRow = 711
    ActiveWindow.ScrollRow = 735
    ActiveWindow.ScrollRow = 748
    ActiveWindow.ScrollRow = 757
    ActiveWindow.ScrollRow = 766
    ActiveWindow.ScrollRow = 775
    ActiveWindow.ScrollRow = 785
    ActiveWindow.ScrollRow = 797
    ActiveWindow.ScrollRow = 809
    ActiveWindow.ScrollRow = 822
    ActiveWindow.ScrollRow = 837
    ActiveWindow.ScrollRow = 852
    ActiveWindow.ScrollRow = 871
    ActiveWindow.ScrollRow = 889
    ActiveWindow.ScrollRow = 914
    ActiveWindow.ScrollRow = 932
    ActiveWindow.ScrollRow = 954
    ActiveWindow.ScrollRow = 985
    ActiveWindow.ScrollRow = 1006
    ActiveWindow.ScrollRow = 1015
    ActiveWindow.ScrollRow = 1022
    ActiveWindow.ScrollRow = 1031
    ActiveWindow.ScrollRow = 1040
    ActiveWindow.ScrollRow = 1046
    ActiveWindow.ScrollRow = 1056
    ActiveWindow.ScrollRow = 1062
    ActiveWindow.ScrollRow = 1071
    ActiveWindow.ScrollRow = 1080
    ActiveWindow.ScrollRow = 1092
    ActiveWindow.ScrollRow = 1102
    ActiveWindow.ScrollRow = 1114
    ActiveWindow.ScrollRow = 1123
    ActiveWindow.ScrollRow = 1132
    ActiveWindow.ScrollRow = 1142
    ActiveWindow.ScrollRow = 1151
    ActiveWindow.ScrollRow = 1157
    ActiveWindow.ScrollRow = 1163
    ActiveWindow.ScrollRow = 1172
    ActiveWindow.ScrollRow = 1179
    ActiveWindow.ScrollRow = 1185
    ActiveWindow.ScrollRow = 1191
    ActiveWindow.ScrollRow = 1197
    ActiveWindow.ScrollRow = 1206
    ActiveWindow.ScrollRow = 1212
    ActiveWindow.ScrollRow = 1222
    ActiveWindow.ScrollRow = 1228
    ActiveWindow.ScrollRow = 1231
    ActiveWindow.ScrollRow = 1237
    ActiveWindow.ScrollRow = 1243
    ActiveWindow.ScrollRow = 1246
    ActiveWindow.ScrollRow = 1249
    ActiveWindow.ScrollRow = 1252
    ActiveWindow.ScrollRow = 1256
    ActiveWindow.ScrollRow = 1262
    ActiveWindow.ScrollRow = 1268
    ActiveWindow.ScrollRow = 1271
    ActiveWindow.ScrollRow = 1274
    ActiveWindow.ScrollRow = 1277
    ActiveWindow.ScrollRow = 1280
    ActiveWindow.ScrollRow = 1283
    ActiveWindow.ScrollRow = 1286
    ActiveWindow.ScrollRow = 1289
    ActiveWindow.ScrollRow = 1292
    ActiveWindow.ScrollRow = 1296
    ActiveWindow.ScrollRow = 1299
    ActiveWindow.ScrollRow = 1302
    ActiveWindow.ScrollRow = 1308
    ActiveWindow.ScrollRow = 1311
    ActiveWindow.ScrollRow = 1314
    ActiveWindow.ScrollRow = 1317
    ActiveWindow.ScrollRow = 1320
    ActiveWindow.ScrollRow = 1323
    ActiveWindow.ScrollRow = 1326
    ActiveWindow.ScrollRow = 1329
    ActiveWindow.ScrollRow = 1333
    ActiveWindow.ScrollRow = 1336
    ActiveWindow.ScrollRow = 1339
    ActiveWindow.ScrollRow = 1342
    ActiveWindow.ScrollRow = 1345
    ActiveWindow.ScrollRow = 1348
    ActiveWindow.ScrollRow = 1351
    ActiveWindow.ScrollRow = 1354
    ActiveWindow.ScrollRow = 1357
    ActiveWindow.ScrollRow = 1360
    ActiveWindow.ScrollRow = 1363
    ActiveWindow.ScrollRow = 1366
    ActiveWindow.ScrollRow = 1369
    ActiveWindow.ScrollRow = 1373
    ActiveWindow.ScrollRow = 1376
    ActiveWindow.ScrollRow = 1379
    ActiveWindow.ScrollRow = 1382
    ActiveWindow.ScrollRow = 1385
    ActiveWindow.ScrollRow = 1382
    ActiveWindow.ScrollRow = 1379
    ActiveWindow.ScrollRow = 1376
    ActiveWindow.ScrollRow = 1373
    ActiveWindow.ScrollRow = 1369
    Range("CH1380:CJ1380").Select
    Selection.AutoFill Destination:=Range("CH7:CJ1380"), Type:=xlFillDefault
    Range("CH7:CJ1380").Select
    ActiveWindow.SmallScroll ToRight:=11
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 101
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 123
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 132
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 151
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 157
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 169
    ActiveWindow.ScrollRow = 175
    ActiveWindow.ScrollRow = 181
    ActiveWindow.ScrollRow = 188
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 200
    ActiveWindow.ScrollRow = 209
    ActiveWindow.ScrollRow = 221
    ActiveWindow.ScrollRow = 237
    ActiveWindow.ScrollRow = 258
    ActiveWindow.ScrollRow = 283
    ActiveWindow.ScrollRow = 308
    ActiveWindow.ScrollRow = 329
    ActiveWindow.ScrollRow = 363
    ActiveWindow.ScrollRow = 375
    ActiveWindow.ScrollRow = 385
    ActiveWindow.ScrollRow = 397
    ActiveWindow.ScrollRow = 409
    ActiveWindow.ScrollRow = 421
    ActiveWindow.ScrollRow = 440
    ActiveWindow.ScrollRow = 462
    ActiveWindow.ScrollRow = 486
    ActiveWindow.ScrollRow = 514
    ActiveWindow.ScrollRow = 538
    ActiveWindow.ScrollRow = 578
    ActiveWindow.ScrollRow = 594
    ActiveWindow.ScrollRow = 612
    ActiveWindow.ScrollRow = 631
    ActiveWindow.ScrollRow = 668
    ActiveWindow.ScrollRow = 692
    ActiveWindow.ScrollRow = 714
    ActiveWindow.ScrollRow = 735
    ActiveWindow.ScrollRow = 788
    ActiveWindow.ScrollRow = 819
    ActiveWindow.ScrollRow = 852
    ActiveWindow.ScrollRow = 895
    ActiveWindow.ScrollRow = 914
    ActiveWindow.ScrollRow = 939
    ActiveWindow.ScrollRow = 960
    ActiveWindow.ScrollRow = 1009
    ActiveWindow.ScrollRow = 1049
    ActiveWindow.ScrollRow = 1071
    ActiveWindow.ScrollRow = 1092
    ActiveWindow.ScrollRow = 1117
    ActiveWindow.ScrollRow = 1148
    ActiveWindow.ScrollRow = 1160
    ActiveWindow.ScrollRow = 1169
    ActiveWindow.ScrollRow = 1179
    ActiveWindow.ScrollRow = 1185
    ActiveWindow.ScrollRow = 1194
    ActiveWindow.ScrollRow = 1197
    ActiveWindow.ScrollRow = 1200
    ActiveWindow.ScrollRow = 1203
    ActiveWindow.ScrollRow = 1206
    ActiveWindow.ScrollRow = 1209
    ActiveWindow.ScrollRow = 1212
    ActiveWindow.ScrollRow = 1216
    ActiveWindow.ScrollRow = 1219
    ActiveWindow.ScrollRow = 1222
    ActiveWindow.ScrollRow = 1225
    ActiveWindow.ScrollRow = 1228
    ActiveWindow.ScrollRow = 1234
    ActiveWindow.ScrollRow = 1237
    ActiveWindow.ScrollRow = 1243
    ActiveWindow.ScrollRow = 1246
    ActiveWindow.ScrollRow = 1252
    ActiveWindow.ScrollRow = 1262
    ActiveWindow.ScrollRow = 1268
    ActiveWindow.ScrollRow = 1274
    ActiveWindow.ScrollRow = 1280
    ActiveWindow.ScrollRow = 1286
    ActiveWindow.ScrollRow = 1292
    ActiveWindow.ScrollRow = 1296
    ActiveWindow.ScrollRow = 1299
    ActiveWindow.ScrollRow = 1302
    ActiveWindow.ScrollRow = 1305
    ActiveWindow.ScrollRow = 1308
    ActiveWindow.ScrollRow = 1311
    ActiveWindow.ScrollRow = 1314
    ActiveWindow.ScrollRow = 1317
    ActiveWindow.ScrollRow = 1320
    ActiveWindow.ScrollRow = 1323
    ActiveWindow.ScrollRow = 1326
    ActiveWindow.ScrollRow = 1329
    ActiveWindow.ScrollRow = 1333
    ActiveWindow.ScrollRow = 1336
    ActiveWindow.ScrollRow = 1339
    ActiveWindow.ScrollRow = 1342
    ActiveWindow.ScrollRow = 1345
    ActiveWindow.ScrollRow = 1348
    ActiveWindow.ScrollRow = 1351
    ActiveWindow.ScrollRow = 1354
    ActiveWindow.ScrollRow = 1357
    ActiveWindow.ScrollRow = 1360
    ActiveWindow.ScrollRow = 1363
    ActiveWindow.ScrollRow = 1366
    ActiveWindow.ScrollRow = 1369
    ActiveWindow.ScrollRow = 1373
    ActiveWindow.ScrollRow = 1376
    Range("CU1380:CW1380").Select
    Selection.AutoFill Destination:=Range("CU7:CW1380"), Type:=xlFillDefault
    Range("CU7:CW1380").Select
    ActiveWindow.SmallScroll ToRight:=10
    Range("DP1381").Select
    ActiveWindow.SmallScroll Down:=3
    Range("DI1380:DK1380").Select
    Selection.AutoFill Destination:=Range("DI7:DK1380"), Type:=xlFillDefault
    Range("DI7:DK1380").Select
    Range("DJ9").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowSorting:= _
        True, AllowFiltering:=True
End Sub
 

Some videos you may like

Excel Facts

Can you sort left to right?
To sort left-to-right, use the Sort dialog box. Click Options. Choose "Sort left to right"

Jonmo1

MrExcel MVP
Joined
Oct 12, 2006
Messages
44,061
You can start by getting rid of ALL the ActiveWindow.ScrollRow lines..They are completely unnecessary.
 

excel_321

New Member
Joined
Jul 14, 2014
Messages
36
I generated this code by recording a macro. If I get rid of all those lines how would this affect things?
 

Watch MrExcel Video

Forum statistics

Threads
1,127,491
Messages
5,625,075
Members
416,068
Latest member
seba_s

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top