mmclaug143
New Member
- Joined
- Aug 14, 2019
- Messages
- 2
I used to have this working but then we made changes. Can you help me?
this macro opens up and pastes each sheet into one sheet.
this macro opens up and pastes each sheet into one sheet.
Code:
Sub Aisles()
'
' Aisles Macro
'
'
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 46
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
Range("A2:J810").Select
Selection.Copy
Windows("SkutoSkuTemplate1").Activate
ActiveSheet.Paste
Windows("Food Room Book 2.0.xlk").Activate
ActiveWindow.Close
Range("A2:K1153").Select
Selection.Copy
Windows("SkutoSkuTemplate1").Activate
ActiveWindow.SmallScroll Down:=72
ActiveWindow.ScrollRow = 78
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 128
ActiveWindow.ScrollRow = 129
ActiveWindow.ScrollRow = 131
ActiveWindow.ScrollRow = 132
ActiveWindow.ScrollRow = 133
ActiveWindow.ScrollRow = 135
ActiveWindow.ScrollRow = 136
ActiveWindow.ScrollRow = 138
ActiveWindow.ScrollRow = 139
ActiveWindow.ScrollRow = 140
ActiveWindow.ScrollRow = 142
ActiveWindow.ScrollRow = 143
ActiveWindow.ScrollRow = 145
ActiveWindow.ScrollRow = 146
ActiveWindow.ScrollRow = 148
ActiveWindow.ScrollRow = 149
ActiveWindow.ScrollRow = 150
ActiveWindow.ScrollRow = 152
ActiveWindow.ScrollRow = 153
ActiveWindow.ScrollRow = 155
ActiveWindow.ScrollRow = 156
ActiveWindow.ScrollRow = 158
ActiveWindow.ScrollRow = 159
ActiveWindow.ScrollRow = 160
ActiveWindow.ScrollRow = 163
ActiveWindow.ScrollRow = 165
ActiveWindow.ScrollRow = 166
ActiveWindow.ScrollRow = 167
ActiveWindow.ScrollRow = 169
ActiveWindow.ScrollRow = 173
ActiveWindow.ScrollRow = 175
ActiveWindow.ScrollRow = 176
ActiveWindow.ScrollRow = 177
ActiveWindow.ScrollRow = 179
ActiveWindow.ScrollRow = 180
ActiveWindow.ScrollRow = 182
ActiveWindow.ScrollRow = 183
ActiveWindow.ScrollRow = 184
ActiveWindow.ScrollRow = 186
ActiveWindow.ScrollRow = 187
ActiveWindow.ScrollRow = 189
ActiveWindow.ScrollRow = 190
ActiveWindow.ScrollRow = 192
ActiveWindow.ScrollRow = 194
ActiveWindow.ScrollRow = 196
ActiveWindow.ScrollRow = 197
ActiveWindow.ScrollRow = 199
ActiveWindow.ScrollRow = 200
ActiveWindow.ScrollRow = 201
ActiveWindow.ScrollRow = 206
ActiveWindow.ScrollRow = 209
ActiveWindow.ScrollRow = 213
ActiveWindow.ScrollRow = 214
ActiveWindow.ScrollRow = 217
ActiveWindow.ScrollRow = 220
ActiveWindow.ScrollRow = 224
ActiveWindow.ScrollRow = 227
ActiveWindow.ScrollRow = 228
ActiveWindow.ScrollRow = 230
ActiveWindow.ScrollRow = 231
ActiveWindow.ScrollRow = 233
ActiveWindow.ScrollRow = 234
ActiveWindow.ScrollRow = 237
ActiveWindow.ScrollRow = 238
ActiveWindow.ScrollRow = 240
ActiveWindow.ScrollRow = 241
ActiveWindow.ScrollRow = 243
ActiveWindow.ScrollRow = 244
ActiveWindow.ScrollRow = 247
ActiveWindow.ScrollRow = 248
ActiveWindow.ScrollRow = 250
ActiveWindow.ScrollRow = 251
ActiveWindow.ScrollRow = 254
ActiveWindow.ScrollRow = 255
ActiveWindow.ScrollRow = 257
ActiveWindow.ScrollRow = 258
ActiveWindow.ScrollRow = 261
ActiveWindow.ScrollRow = 262
ActiveWindow.ScrollRow = 264
ActiveWindow.ScrollRow = 268
ActiveWindow.ScrollRow = 270
ActiveWindow.ScrollRow = 271
ActiveWindow.ScrollRow = 275
ActiveWindow.ScrollRow = 277
ActiveWindow.ScrollRow = 279
ActiveWindow.ScrollRow = 281
ActiveWindow.ScrollRow = 282
ActiveWindow.ScrollRow = 288
ActiveWindow.ScrollRow = 291
ActiveWindow.ScrollRow = 292
ActiveWindow.ScrollRow = 295
ActiveWindow.ScrollRow = 298
ActiveWindow.ScrollRow = 301
ActiveWindow.ScrollRow = 305
ActiveWindow.ScrollRow = 309
ActiveWindow.ScrollRow = 311
ActiveWindow.ScrollRow = 312
ActiveWindow.ScrollRow = 315
ActiveWindow.ScrollRow = 316
ActiveWindow.ScrollRow = 318
ActiveWindow.ScrollRow = 321
ActiveWindow.ScrollRow = 322
ActiveWindow.ScrollRow = 323
ActiveWindow.ScrollRow = 325
ActiveWindow.ScrollRow = 328
ActiveWindow.ScrollRow = 331
ActiveWindow.ScrollRow = 332
ActiveWindow.ScrollRow = 333
ActiveWindow.ScrollRow = 335
ActiveWindow.ScrollRow = 336
ActiveWindow.ScrollRow = 339
ActiveWindow.ScrollRow = 340
ActiveWindow.ScrollRow = 343
ActiveWindow.ScrollRow = 345
ActiveWindow.ScrollRow = 349
ActiveWindow.ScrollRow = 352
ActiveWindow.ScrollRow = 356
ActiveWindow.ScrollRow = 359
ActiveWindow.ScrollRow = 360
ActiveWindow.ScrollRow = 363
ActiveWindow.ScrollRow = 366
ActiveWindow.ScrollRow = 369
ActiveWindow.ScrollRow = 370
ActiveWindow.ScrollRow = 372
ActiveWindow.ScrollRow = 373
ActiveWindow.ScrollRow = 375
ActiveWindow.ScrollRow = 376
ActiveWindow.ScrollRow = 377
ActiveWindow.ScrollRow = 379
ActiveWindow.ScrollRow = 380
ActiveWindow.ScrollRow = 382
ActiveWindow.ScrollRow = 383
ActiveWindow.ScrollRow = 384
ActiveWindow.ScrollRow = 387
ActiveWindow.ScrollRow = 389
ActiveWindow.ScrollRow = 390
ActiveWindow.ScrollRow = 392
ActiveWindow.ScrollRow = 393
ActiveWindow.ScrollRow = 394
ActiveWindow.ScrollRow = 396
ActiveWindow.ScrollRow = 397
ActiveWindow.ScrollRow = 399
ActiveWindow.ScrollRow = 401
ActiveWindow.ScrollRow = 403
ActiveWindow.ScrollRow = 404
ActiveWindow.ScrollRow = 407
ActiveWindow.ScrollRow = 409
ActiveWindow.ScrollRow = 410
ActiveWindow.ScrollRow = 411
ActiveWindow.ScrollRow = 414
ActiveWindow.ScrollRow = 416
ActiveWindow.ScrollRow = 417
ActiveWindow.ScrollRow = 418
ActiveWindow.ScrollRow = 420
ActiveWindow.ScrollRow = 421
ActiveWindow.ScrollRow = 423
ActiveWindow.ScrollRow = 424
ActiveWindow.ScrollRow = 427
ActiveWindow.ScrollRow = 430
ActiveWindow.ScrollRow = 433
ActiveWindow.ScrollRow = 434
ActiveWindow.ScrollRow = 436
ActiveWindow.ScrollRow = 437
ActiveWindow.ScrollRow = 438
ActiveWindow.ScrollRow = 440
ActiveWindow.ScrollRow = 441
ActiveWindow.ScrollRow = 443
ActiveWindow.ScrollRow = 444
ActiveWindow.ScrollRow = 445
ActiveWindow.ScrollRow = 447
ActiveWindow.ScrollRow = 448
ActiveWindow.ScrollRow = 450
ActiveWindow.ScrollRow = 453
ActiveWindow.ScrollRow = 454
ActiveWindow.ScrollRow = 457
ActiveWindow.ScrollRow = 460
ActiveWindow.ScrollRow = 461
ActiveWindow.ScrollRow = 462
ActiveWindow.ScrollRow = 464
ActiveWindow.ScrollRow = 465
ActiveWindow.ScrollRow = 468
ActiveWindow.ScrollRow = 474
ActiveWindow.ScrollRow = 475
ActiveWindow.ScrollRow = 478
ActiveWindow.ScrollRow = 479
ActiveWindow.ScrollRow = 481
ActiveWindow.ScrollRow = 482
ActiveWindow.ScrollRow = 484
ActiveWindow.ScrollRow = 485
ActiveWindow.ScrollRow = 487
ActiveWindow.ScrollRow = 488
ActiveWindow.ScrollRow = 489
ActiveWindow.ScrollRow = 491
ActiveWindow.ScrollRow = 492
ActiveWindow.ScrollRow = 494
ActiveWindow.ScrollRow = 496
ActiveWindow.ScrollRow = 498
ActiveWindow.ScrollRow = 499
ActiveWindow.ScrollRow = 501
ActiveWindow.ScrollRow = 502
ActiveWindow.ScrollRow = 504
ActiveWindow.ScrollRow = 505
ActiveWindow.ScrollRow = 506
ActiveWindow.ScrollRow = 508
ActiveWindow.ScrollRow = 509
ActiveWindow.ScrollRow = 511
ActiveWindow.ScrollRow = 512
ActiveWindow.ScrollRow = 514
ActiveWindow.ScrollRow = 516
ActiveWindow.ScrollRow = 518
ActiveWindow.ScrollRow = 519
ActiveWindow.ScrollRow = 521
ActiveWindow.ScrollRow = 522
ActiveWindow.ScrollRow = 523
ActiveWindow.ScrollRow = 526
ActiveWindow.ScrollRow = 528
ActiveWindow.ScrollRow = 529
ActiveWindow.ScrollRow = 531
ActiveWindow.ScrollRow = 532
ActiveWindow.ScrollRow = 533
ActiveWindow.ScrollRow = 535
ActiveWindow.ScrollRow = 536
ActiveWindow.ScrollRow = 538
ActiveWindow.ScrollRow = 539
ActiveWindow.ScrollRow = 540
ActiveWindow.ScrollRow = 542
ActiveWindow.ScrollRow = 543
ActiveWindow.ScrollRow = 545
ActiveWindow.ScrollRow = 546
ActiveWindow.ScrollRow = 548
ActiveWindow.ScrollRow = 549
ActiveWindow.ScrollRow = 550
ActiveWindow.ScrollRow = 553
ActiveWindow.ScrollRow = 555
ActiveWindow.ScrollRow = 556
ActiveWindow.ScrollRow = 557
ActiveWindow.ScrollRow = 559
ActiveWindow.ScrollRow = 560
ActiveWindow.ScrollRow = 562
ActiveWindow.ScrollRow = 563
ActiveWindow.ScrollRow = 565
ActiveWindow.ScrollRow = 566
ActiveWindow.ScrollRow = 567
ActiveWindow.ScrollRow = 569
ActiveWindow.ScrollRow = 570
ActiveWindow.ScrollRow = 572
ActiveWindow.ScrollRow = 573
ActiveWindow.ScrollRow = 575
ActiveWindow.ScrollRow = 576
ActiveWindow.ScrollRow = 577
ActiveWindow.ScrollRow = 579
ActiveWindow.ScrollRow = 580
ActiveWindow.ScrollRow = 582
ActiveWindow.ScrollRow = 583
ActiveWindow.ScrollRow = 584
ActiveWindow.ScrollRow = 586
ActiveWindow.ScrollRow = 587
ActiveWindow.ScrollRow = 589
ActiveWindow.ScrollRow = 590
ActiveWindow.ScrollRow = 592
ActiveWindow.ScrollRow = 593
ActiveWindow.ScrollRow = 596
ActiveWindow.ScrollRow = 597
ActiveWindow.ScrollRow = 599
ActiveWindow.ScrollRow = 600
ActiveWindow.ScrollRow = 601
ActiveWindow.ScrollRow = 603
ActiveWindow.ScrollRow = 604
ActiveWindow.ScrollRow = 606
ActiveWindow.ScrollRow = 607
ActiveWindow.ScrollRow = 610
ActiveWindow.ScrollRow = 611
ActiveWindow.ScrollRow = 614
ActiveWindow.ScrollRow = 616
ActiveWindow.ScrollRow = 617
ActiveWindow.ScrollRow = 618
ActiveWindow.ScrollRow = 620
ActiveWindow.ScrollRow = 621
ActiveWindow.ScrollRow = 623
ActiveWindow.ScrollRow = 624
ActiveWindow.ScrollRow = 626
ActiveWindow.ScrollRow = 627
ActiveWindow.ScrollRow = 628
ActiveWindow.ScrollRow = 630
ActiveWindow.ScrollRow = 631
ActiveWindow.ScrollRow = 633
ActiveWindow.ScrollRow = 634
ActiveWindow.ScrollRow = 635
ActiveWindow.ScrollRow = 637
ActiveWindow.ScrollRow = 638
ActiveWindow.ScrollRow = 640
ActiveWindow.ScrollRow = 641
ActiveWindow.ScrollRow = 643
ActiveWindow.ScrollRow = 644
ActiveWindow.ScrollRow = 645
ActiveWindow.ScrollRow = 647
ActiveWindow.ScrollRow = 648
ActiveWindow.ScrollRow = 650
ActiveWindow.ScrollRow = 651
ActiveWindow.ScrollRow = 653
ActiveWindow.ScrollRow = 654
ActiveWindow.ScrollRow = 655
ActiveWindow.ScrollRow = 657
ActiveWindow.ScrollRow = 658
ActiveWindow.ScrollRow = 660
ActiveWindow.ScrollRow = 661
ActiveWindow.ScrollRow = 662
ActiveWindow.ScrollRow = 664
ActiveWindow.ScrollRow = 665
ActiveWindow.ScrollRow = 667
ActiveWindow.ScrollRow = 668
ActiveWindow.ScrollRow = 671
ActiveWindow.ScrollRow = 674
ActiveWindow.ScrollRow = 675
ActiveWindow.ScrollRow = 677
ActiveWindow.ScrollRow = 678
ActiveWindow.ScrollRow = 679
ActiveWindow.ScrollRow = 681
ActiveWindow.ScrollRow = 682
ActiveWindow.ScrollRow = 684
ActiveWindow.ScrollRow = 685
ActiveWindow.ScrollRow = 687
ActiveWindow.ScrollRow = 688
ActiveWindow.ScrollRow = 689
ActiveWindow.ScrollRow = 691
ActiveWindow.ScrollRow = 692
ActiveWindow.ScrollRow = 694
ActiveWindow.ScrollRow = 695
ActiveWindow.ScrollRow = 696
ActiveWindow.ScrollRow = 698
ActiveWindow.ScrollRow = 699
ActiveWindow.ScrollRow = 701
ActiveWindow.ScrollRow = 702
ActiveWindow.ScrollRow = 704
ActiveWindow.ScrollRow = 705
ActiveWindow.ScrollRow = 706
ActiveWindow.ScrollRow = 708
ActiveWindow.ScrollRow = 709
ActiveWindow.ScrollRow = 711
ActiveWindow.ScrollRow = 712
ActiveWindow.ScrollRow = 713
ActiveWindow.ScrollRow = 715
ActiveWindow.ScrollRow = 716
ActiveWindow.ScrollRow = 718
ActiveWindow.ScrollRow = 719
ActiveWindow.ScrollRow = 721
ActiveWindow.ScrollRow = 722
ActiveWindow.ScrollRow = 723
ActiveWindow.ScrollRow = 725
ActiveWindow.ScrollRow = 726
ActiveWindow.ScrollRow = 728
ActiveWindow.ScrollRow = 729
ActiveWindow.ScrollRow = 731
ActiveWindow.ScrollRow = 732
ActiveWindow.ScrollRow = 733
ActiveWindow.ScrollRow = 735
ActiveWindow.ScrollRow = 736
ActiveWindow.ScrollRow = 738
ActiveWindow.ScrollRow = 739
ActiveWindow.ScrollRow = 740
ActiveWindow.ScrollRow = 742
ActiveWindow.ScrollRow = 743
ActiveWindow.ScrollRow = 745
ActiveWindow.ScrollRow = 746
ActiveWindow.ScrollRow = 748
ActiveWindow.ScrollRow = 749
ActiveWindow.ScrollRow = 750
ActiveWindow.ScrollRow = 752
ActiveWindow.ScrollRow = 753
ActiveWindow.ScrollRow = 755
ActiveWindow.ScrollRow = 756
ActiveWindow.ScrollRow = 757
ActiveWindow.ScrollRow = 759
ActiveWindow.ScrollRow = 760
ActiveWindow.ScrollRow = 762
ActiveWindow.ScrollRow = 763
ActiveWindow.ScrollRow = 765
ActiveWindow.ScrollRow = 766
ActiveWindow.ScrollRow = 767
ActiveWindow.ScrollRow = 769
ActiveWindow.ScrollRow = 770
ActiveWindow.ScrollRow = 772
ActiveWindow.ScrollRow = 773
ActiveWindow.ScrollRow = 774
ActiveWindow.ScrollRow = 776
ActiveWindow.ScrollRow = 777
ActiveWindow.ScrollRow = 779
ActiveWindow.ScrollRow = 780
ActiveWindow.ScrollRow = 783
ActiveWindow.ScrollRow = 787
ActiveWindow.ScrollRow = 789
ActiveWindow.ScrollRow = 790
ActiveWindow.ScrollRow = 792
ActiveWindow.SmallScroll Down:=15
Range("A811").Select
ActiveSheet.Paste
Windows("AISLE 5 DVD.xlsx").Activate
ActiveWindow.Close
ActiveWindow.ScrollRow = 1630
ActiveWindow.ScrollRow = 1627
ActiveWindow.ScrollRow = 1593
ActiveWindow.ScrollRow = 1504
ActiveWindow.ScrollRow = 1232
ActiveWindow.ScrollRow = 981
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 2
Range("A2:K1727").Select
Selection.Copy
Windows("SkutoSkuTemplate1").Activate
ActiveWindow.SmallScroll Down:=33
ActiveWindow.ScrollRow = 838
ActiveWindow.ScrollRow = 841
ActiveWindow.ScrollRow = 848
ActiveWindow.ScrollRow = 869
ActiveWindow.ScrollRow = 887
ActiveWindow.ScrollRow = 953
ActiveWindow.ScrollRow = 1036
ActiveWindow.ScrollRow = 1246
ActiveWindow.ScrollRow = 1273
ActiveWindow.ScrollRow = 1552
ActiveWindow.ScrollRow = 1573
ActiveWindow.ScrollRow = 1768
ActiveWindow.ScrollRow = 1831
ActiveWindow.ScrollRow = 1852
ActiveWindow.ScrollRow = 1855
ActiveWindow.ScrollRow = 1859
ActiveWindow.ScrollRow = 1866
ActiveWindow.ScrollRow = 1883
ActiveWindow.ScrollRow = 1887
ActiveWindow.ScrollRow = 1904
ActiveWindow.ScrollRow = 1925
ActiveWindow.ScrollRow = 1929
ActiveWindow.ScrollRow = 1932
ActiveWindow.ScrollRow = 1936
ActiveWindow.ScrollRow = 1939
ActiveWindow.ScrollRow = 1943
ActiveWindow.SmallScroll Down:=12
Range("A1963").Select
ActiveSheet.Paste
Windows("AISLE 6 MUGS FRAG.xlsx").Activate
ActiveWindow.Close
ActiveWindow.ScrollRow = 807
ActiveWindow.ScrollRow = 611
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 2
Range("A2:K834").Select
Selection.Copy
Windows("SkutoSkuTemplate1").Activate
ActiveWindow.ScrollRow = 1990
ActiveWindow.ScrollRow = 2307
ActiveWindow.ScrollRow = 2684
ActiveWindow.ScrollRow = 2816
ActiveWindow.ScrollRow = 2955
ActiveWindow.ScrollRow = 3100
ActiveWindow.ScrollRow = 3173
ActiveWindow.ScrollRow = 3239
ActiveWindow.ScrollRow = 3318
ActiveWindow.ScrollRow = 3384
ActiveWindow.ScrollRow = 3430
ActiveWindow.ScrollRow = 3457
ActiveWindow.ScrollRow = 3516
ActiveWindow.ScrollRow = 3543
ActiveWindow.ScrollRow = 3569
ActiveWindow.ScrollRow = 3609
ActiveWindow.ScrollRow = 3635
ActiveWindow.ScrollRow = 3662
ActiveWindow.ScrollRow = 3682
ActiveWindow.SmallScroll Down:=6
Range("A3689").Select
ActiveSheet.Paste
Windows("AISLE 7 CAGE.xlsx").Activate
ActiveWindow.Close
ActiveWindow.SmallScroll Down:=-9
Range("A2:I545").Select
Selection.Copy
Windows("SkutoSkuTemplate1").Activate
ActiveWindow.ScrollRow = 3694
ActiveWindow.ScrollRow = 4429
ActiveWindow.ScrollRow = 4502
ActiveWindow.SmallScroll Down:=12
Range("A4522").Select
ActiveSheet.Paste
Windows("AISLE 7 POSTCARDS.xlsx").Activate
ActiveWindow.Close
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 2
Range("A3:K483").Select
Selection.Copy
Windows("SkutoSkuTemplate1").Activate
ActiveWindow.SmallScroll Down:=15
ActiveWindow.ScrollRow = 4561
ActiveWindow.ScrollRow = 4896
ActiveWindow.ScrollRow = 5041
ActiveWindow.SmallScroll Down:=9
Range("A5066").Select
ActiveSheet.Paste
Windows("AISLE 7 NON-CONVEYABLE.xlsx").Activate
ActiveWindow.Close
ActiveWindow.ScrollRow = 160
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 2
Range("A2:K2885").Select
Selection.Copy
Windows("SkutoSkuTemplate1").Activate
ActiveWindow.ScrollRow = 5109
ActiveWindow.ScrollRow = 5537
Range("A5547").Select
ActiveSheet.Paste
Windows("AISLE 8 CUBE AREA.xlsx").Activate
ActiveWindow.Close
ActiveWindow.ScrollRow = 658
ActiveWindow.ScrollRow = 654
ActiveWindow.ScrollRow = 540
ActiveWindow.ScrollRow = 278
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 78
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 2
Range("A2:K1174").Select
Selection.Copy
Windows("SkutoSkuTemplate1").Activate
ActiveWindow.ScrollRow = 5561
ActiveWindow.ScrollRow = 7480
ActiveWindow.ScrollRow = 8356
ActiveWindow.ScrollRow = 8417
ActiveWindow.SmallScroll Down:=9
Range("A8431").Select
ActiveSheet.Paste
Windows("AISLE 10.xlsx").Activate
ActiveWindow.Close
ActiveWindow.ScrollRow = 644
ActiveWindow.ScrollRow = 354
ActiveWindow.ScrollRow = 200
ActiveWindow.ScrollRow = 159
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 2
Range("A2:K1230").Select
Selection.Copy
Windows("SkutoSkuTemplate1").Activate
ActiveWindow.ScrollRow = 8556
ActiveWindow.ScrollRow = 9589
ActiveWindow.SmallScroll Down:=6
Range("A9604").Select
ActiveSheet.Paste
Windows("AISLE 11.xlsx").Activate
ActiveWindow.Close
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 2
Range("A2:I204").Select
Selection.Copy
Windows("SkutoSkuTemplate1").Activate
ActiveWindow.ScrollRow = 10198
ActiveWindow.ScrollRow = 10820
Range("A10833").Select
ActiveSheet.Paste
Windows("AISLE 12.xlsx").Activate
ActiveWindow.Close
Range("A2:I416").Select
Selection.Copy
Windows("SkutoSkuTemplate1").Activate
ActiveWindow.SmallScroll Down:=24
ActiveWindow.ScrollRow = 10898
ActiveWindow.ScrollRow = 11017
ActiveWindow.SmallScroll Down:=9
Range("A11036").Select
ActiveSheet.Paste
Windows("AISLE 14 SEASONAL.xlsx").Activate
ActiveWindow.Close
ActiveWindow.ScrollRow = 350
ActiveWindow.ScrollRow = 276
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 2
Range("A2:J400").Select
Selection.Copy
Windows("SkutoSkuTemplate1").Activate
ActiveWindow.SmallScroll Down:=12
ActiveWindow.ScrollRow = 11066
ActiveWindow.ScrollRow = 11312
ActiveWindow.ScrollRow = 11436
ActiveWindow.SmallScroll Down:=9
Range("A11451").Select
ActiveSheet.Paste
Windows("AISLE 20.xlsx").Activate
ActiveWindow.Close
ActiveWindow.ScrollRow = 546
ActiveWindow.ScrollRow = 472
ActiveWindow.ScrollRow = 200
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 2
Range("A2:K597").Select
Selection.Copy
Windows("SkutoSkuTemplate1").Activate
ActiveWindow.ScrollRow = 11599
ActiveWindow.ScrollRow = 11833
ActiveWindow.SmallScroll Down:=6
Range("A11850").Select
ActiveSheet.Paste
Windows("AISLE 21 SEASONAL.xlsx").Activate
ActiveWindow.Close
Range("B2:L169").Select
Selection.Copy
Windows("SkutoSkuTemplate1").Activate
ActiveWindow.SmallScroll Down:=12
ActiveWindow.ScrollRow = 11917
ActiveWindow.ScrollRow = 12431
ActiveWindow.SmallScroll Down:=12
Range("A12446").Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 12438
ActiveWindow.ScrollRow = 12416
ActiveWindow.ScrollRow = 2421
ActiveWindow.ScrollRow = 2
Range("A2").Select
Windows("AISLE 7 JEWELRY CABINET.xlsx").Activate
ActiveWindow.Close
End Sub
Last edited by a moderator: