Paste several worksheets into one worksheet

M

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.

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:

Excel Facts

Quick Sum
Select a range of cells. The total appears in bottom right of Excel screen. Right-click total to add Max, Min, Count, Average.
Sort by date Sort by votes
Hi @★ mmclaug143 and welcome to the forum!

What changes did you make or what do you need to adjust in the code?


Note: Deleted lines are not necessary:


Code: 
Sub Aisles()
' Aisles Macro
    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
    Range("A811").Select
    ActiveSheet.Paste
    Windows("AISLE 5 DVD.xlsx").Activate
    ActiveWindow.Close
    
    Range("A2:K1727").Select
    Selection.Copy
    Windows("SkutoSkuTemplate1").Activate
    
    Range("A1963").Select
    ActiveSheet.Paste
    Windows("AISLE 6 MUGS FRAG.xlsx").Activate
    ActiveWindow.Close
    
    Range("A2:K834").Select
    Selection.Copy
    Windows("SkutoSkuTemplate1").Activate
    
    Range("A3689").Select
    ActiveSheet.Paste
    Windows("AISLE 7 CAGE.xlsx").Activate
    ActiveWindow.Close
    
    Range("A2:I545").Select
    Selection.Copy
    Windows("SkutoSkuTemplate1").Activate
    Range("A4522").Select
    ActiveSheet.Paste
    Windows("AISLE 7 POSTCARDS.xlsx").Activate
    ActiveWindow.Close
    Range("A3:K483").Select
    Selection.Copy
    Windows("SkutoSkuTemplate1").Activate
    Range("A5066").Select
    ActiveSheet.Paste
    Windows("AISLE 7 NON-CONVEYABLE.xlsx").Activate
    ActiveWindow.Close
    Range("A2:K2885").Select
    Selection.Copy
    Windows("SkutoSkuTemplate1").Activate
    Range("A5547").Select
    ActiveSheet.Paste
    Windows("AISLE 8 CUBE AREA.xlsx").Activate
    ActiveWindow.Close
    Range("A2:K1174").Select
    Selection.Copy
    Windows("SkutoSkuTemplate1").Activate
    Range("A8431").Select
    ActiveSheet.Paste
    Windows("AISLE 10.xlsx").Activate
    ActiveWindow.Close
    Range("A2:K1230").Select
    Selection.Copy
    Windows("SkutoSkuTemplate1").Activate
    Range("A9604").Select
    ActiveSheet.Paste
    Windows("AISLE 11.xlsx").Activate
    ActiveWindow.Close
    Range("A2:I204").Select
    Selection.Copy
    Windows("SkutoSkuTemplate1").Activate
    Range("A10833").Select
    ActiveSheet.Paste
    Windows("AISLE 12.xlsx").Activate
    ActiveWindow.Close
    Range("A2:I416").Select
    Selection.Copy
    Windows("SkutoSkuTemplate1").Activate
    Range("A11036").Select
    ActiveSheet.Paste
    Windows("AISLE 14 SEASONAL.xlsx").Activate
    ActiveWindow.Close
    Range("A2:J400").Select
    Selection.Copy
    Windows("SkutoSkuTemplate1").Activate
    Range("A11451").Select
    ActiveSheet.Paste
    Windows("AISLE 20.xlsx").Activate
    ActiveWindow.Close
    Range("A2:K597").Select
    Selection.Copy
    Windows("SkutoSkuTemplate1").Activate
    Range("A11850").Select
    ActiveSheet.Paste
    Windows("AISLE 21 SEASONAL.xlsx").Activate
    ActiveWindow.Close
    Range("B2:L169").Select
    Selection.Copy
    Windows("SkutoSkuTemplate1").Activate
    Range("A12446").Select
    ActiveSheet.Paste
    Range("A2").Select
    Windows("AISLE 7 JEWELRY CABINET.xlsx").Activate
    ActiveWindow.Close
End Sub
 
Upvote 0
You must log in or register to reply here.

Similar threads

P
  • Question Question
Help with Vba Code
Replies
3
Views
463
Coyotex3
C
An Quala
  • Question Question
Should I name it Active.Sheet or sheet name?
Replies
8
Views
896
MARK858
MARK858
M
  • Question Question
VBS Crash
Replies
1
Views
759
Alex Blakenburg
A
Z
  • Question Question
Macro to copy formula down.
2
Replies
11
Views
2K
Fluff
Fluff
D
  • Question Question
VBA code works when called directly, but not from another routhine
Replies
7
Views
951
davidepstein22
D

Forum statistics

Threads
1,223,889
Messages
6,175,223
Members
452,620
Latest member
dsubash

Share this page

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
Back
Top