VBA collecting data, sorting and then printing

G

Guy81

New Member
Joined
Apr 15, 2016
Messages
1
Hello all,

I am very new to VBA and reluctanctly need to ask for help. I have a excel workbook that has sheets that are labelled in months and an extra sheet that collects the data I need (via formulas) into a series of three columns that are 3 columns wide per entry with a max entry of 4 entries per month with 500 rows each (which ends up being 6000 rows long with a grouping of 3 columns per entry and four sets of of columns wide). What I need to achieve is getting the info from that sheet into a single column (but three columns wide), sorting it alphabetically, and then print it. I have recorded a macro but ran into the error of the macro being too large in size. I completely understand that there is a better way of performing this action but dont really know how. The workbook with the macro recorded only accounts for january, but will need to extend to december as well (which is where I run into the error). I know this is a big ask, but any help would be gratefully appreciated. I am apologise in advance if I have not been clear in my intentions and thank all those that are willing to help in my problem. Also, my work computers run excel 2003, and will probably be a long time before they upgrade.

Thankyou again

Guy.

Sub newtest()


Range("M1:O500").Select
Selection.Copy
ActiveWindow.ScrollRow = 460
ActiveWindow.ScrollRow = 457
ActiveWindow.ScrollRow = 454
ActiveWindow.ScrollRow = 448
ActiveWindow.ScrollRow = 441
ActiveWindow.ScrollRow = 435
ActiveWindow.ScrollRow = 427
ActiveWindow.ScrollRow = 418
ActiveWindow.ScrollRow = 408
ActiveWindow.ScrollRow = 400
ActiveWindow.ScrollRow = 389
ActiveWindow.ScrollRow = 379
ActiveWindow.ScrollRow = 367
ActiveWindow.ScrollRow = 356
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 336
ActiveWindow.ScrollRow = 324
ActiveWindow.ScrollRow = 310
ActiveWindow.ScrollRow = 299
ActiveWindow.ScrollRow = 287
ActiveWindow.ScrollRow = 276
ActiveWindow.ScrollRow = 266
ActiveWindow.ScrollRow = 255
ActiveWindow.ScrollRow = 245
ActiveWindow.ScrollRow = 234
ActiveWindow.ScrollRow = 222
ActiveWindow.ScrollRow = 212
ActiveWindow.ScrollRow = 200
ActiveWindow.ScrollRow = 189
ActiveWindow.ScrollRow = 178
ActiveWindow.ScrollRow = 165
ActiveWindow.ScrollRow = 152
ActiveWindow.ScrollRow = 140
ActiveWindow.ScrollRow = 129
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P1:R500").Select
Application.CutCopyMode = False
Selection.Copy
Range("A501").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=189
ActiveWindow.ScrollRow = 661
ActiveWindow.ScrollRow = 663
ActiveWindow.ScrollRow = 666
ActiveWindow.ScrollRow = 668
ActiveWindow.ScrollRow = 670
ActiveWindow.ScrollRow = 673
ActiveWindow.ScrollRow = 678
ActiveWindow.ScrollRow = 680
ActiveWindow.ScrollRow = 682
ActiveWindow.ScrollRow = 685
ActiveWindow.ScrollRow = 687
ActiveWindow.ScrollRow = 690
ActiveWindow.ScrollRow = 692
ActiveWindow.ScrollRow = 695
ActiveWindow.ScrollRow = 697
ActiveWindow.ScrollRow = 699
ActiveWindow.ScrollRow = 702
ActiveWindow.ScrollRow = 704
ActiveWindow.ScrollRow = 707
ActiveWindow.ScrollRow = 709
ActiveWindow.ScrollRow = 711
ActiveWindow.ScrollRow = 714
ActiveWindow.ScrollRow = 716
ActiveWindow.ScrollRow = 721
ActiveWindow.ScrollRow = 723
ActiveWindow.ScrollRow = 728
ActiveWindow.ScrollRow = 731
ActiveWindow.ScrollRow = 733
ActiveWindow.ScrollRow = 738
ActiveWindow.ScrollRow = 740
ActiveWindow.ScrollRow = 743
ActiveWindow.ScrollRow = 745
ActiveWindow.ScrollRow = 748
ActiveWindow.ScrollRow = 750
ActiveWindow.ScrollRow = 755
ActiveWindow.ScrollRow = 757
ActiveWindow.ScrollRow = 762
ActiveWindow.ScrollRow = 764
ActiveWindow.ScrollRow = 769
ActiveWindow.ScrollRow = 772
ActiveWindow.ScrollRow = 776
ActiveWindow.ScrollRow = 779
ActiveWindow.ScrollRow = 784
ActiveWindow.ScrollRow = 786
ActiveWindow.ScrollRow = 791
ActiveWindow.ScrollRow = 796
ActiveWindow.ScrollRow = 800
ActiveWindow.ScrollRow = 805
ActiveWindow.ScrollRow = 808
ActiveWindow.ScrollRow = 810
ActiveWindow.ScrollRow = 815
ActiveWindow.ScrollRow = 817
ActiveWindow.ScrollRow = 820
ActiveWindow.ScrollRow = 822
ActiveWindow.ScrollRow = 825
ActiveWindow.ScrollRow = 827
ActiveWindow.ScrollRow = 829
ActiveWindow.ScrollRow = 832
ActiveWindow.ScrollRow = 834
ActiveWindow.ScrollRow = 837
ActiveWindow.ScrollRow = 839
ActiveWindow.ScrollRow = 837
ActiveWindow.ScrollRow = 834
ActiveWindow.ScrollRow = 832
ActiveWindow.ScrollRow = 829
ActiveWindow.ScrollRow = 827
ActiveWindow.ScrollRow = 822
ActiveWindow.ScrollRow = 820
ActiveWindow.ScrollRow = 815
ActiveWindow.ScrollRow = 813
ActiveWindow.ScrollRow = 808
ActiveWindow.ScrollRow = 803
ActiveWindow.ScrollRow = 800
ActiveWindow.ScrollRow = 796
ActiveWindow.ScrollRow = 793
ActiveWindow.ScrollRow = 796
ActiveWindow.ScrollRow = 798
ActiveWindow.ScrollRow = 803
ActiveWindow.ScrollRow = 805
ActiveWindow.ScrollRow = 808
ActiveWindow.ScrollRow = 810
ActiveWindow.ScrollRow = 813
ActiveWindow.ScrollRow = 815
ActiveWindow.ScrollRow = 817
ActiveWindow.ScrollRow = 820
ActiveWindow.ScrollRow = 822
ActiveWindow.ScrollRow = 825
ActiveWindow.ScrollRow = 827
ActiveWindow.ScrollRow = 832
ActiveWindow.ScrollRow = 834
ActiveWindow.ScrollRow = 837
ActiveWindow.ScrollRow = 839
ActiveWindow.ScrollRow = 841
ActiveWindow.ScrollRow = 844
ActiveWindow.ScrollRow = 846
ActiveWindow.ScrollRow = 851
ActiveWindow.ScrollRow = 853
ActiveWindow.ScrollRow = 856
ActiveWindow.ScrollRow = 861
ActiveWindow.ScrollRow = 866
ActiveWindow.ScrollRow = 868
ActiveWindow.ScrollRow = 870
ActiveWindow.ScrollRow = 875
ActiveWindow.ScrollRow = 878
ActiveWindow.ScrollRow = 880
ActiveWindow.ScrollRow = 882
ActiveWindow.ScrollRow = 885
ActiveWindow.ScrollRow = 887
ActiveWindow.ScrollRow = 890
ActiveWindow.ScrollRow = 892
ActiveWindow.ScrollRow = 894
ActiveWindow.ScrollRow = 897
ActiveWindow.ScrollRow = 899
ActiveWindow.ScrollRow = 902
ActiveWindow.ScrollRow = 904
ActiveWindow.ScrollRow = 906
ActiveWindow.ScrollRow = 909
ActiveWindow.ScrollRow = 911
ActiveWindow.ScrollRow = 914
ActiveWindow.ScrollRow = 916
ActiveWindow.ScrollRow = 918
ActiveWindow.ScrollRow = 921
ActiveWindow.ScrollRow = 923
ActiveWindow.ScrollRow = 926
ActiveWindow.ScrollRow = 928
ActiveWindow.ScrollRow = 931
ActiveWindow.ScrollRow = 933
ActiveWindow.ScrollRow = 935
ActiveWindow.ScrollRow = 938
ActiveWindow.ScrollRow = 940
ActiveWindow.ScrollRow = 943
ActiveWindow.ScrollRow = 945
ActiveWindow.ScrollRow = 947
ActiveWindow.ScrollRow = 950
ActiveWindow.ScrollRow = 951
ActiveWindow.ScrollRow = 658
ActiveWindow.ScrollRow = 951
ActiveWindow.SmallScroll Down:=3
ActiveWindow.ScrollRow = 949
ActiveWindow.ScrollRow = 944
ActiveWindow.ScrollRow = 937
ActiveWindow.ScrollRow = 927
ActiveWindow.ScrollRow = 915
ActiveWindow.ScrollRow = 901
ActiveWindow.ScrollRow = 884
ActiveWindow.ScrollRow = 867
ActiveWindow.ScrollRow = 848
ActiveWindow.ScrollRow = 826
ActiveWindow.ScrollRow = 804
ActiveWindow.ScrollRow = 785
ActiveWindow.ScrollRow = 761
ActiveWindow.ScrollRow = 739
ActiveWindow.ScrollRow = 715
ActiveWindow.ScrollRow = 693
ActiveWindow.ScrollRow = 672
ActiveWindow.ScrollRow = 652
ActiveWindow.ScrollRow = 631
ActiveWindow.ScrollRow = 609
ActiveWindow.ScrollRow = 587
ActiveWindow.ScrollRow = 568
ActiveWindow.ScrollRow = 549
ActiveWindow.ScrollRow = 529
ActiveWindow.ScrollRow = 510
ActiveWindow.ScrollRow = 488
ActiveWindow.ScrollRow = 467
ActiveWindow.ScrollRow = 450
ActiveWindow.ScrollRow = 430
ActiveWindow.ScrollRow = 411
ActiveWindow.ScrollRow = 392
ActiveWindow.ScrollRow = 377
ActiveWindow.ScrollRow = 358
ActiveWindow.ScrollRow = 341
ActiveWindow.ScrollRow = 324
ActiveWindow.ScrollRow = 310
ActiveWindow.ScrollRow = 293
ActiveWindow.ScrollRow = 278
ActiveWindow.ScrollRow = 262
ActiveWindow.ScrollRow = 250
ActiveWindow.ScrollRow = 237
ActiveWindow.ScrollRow = 230
ActiveWindow.ScrollRow = 218
ActiveWindow.ScrollRow = 211
ActiveWindow.ScrollRow = 204
ActiveWindow.ScrollRow = 194
ActiveWindow.ScrollRow = 187
ActiveWindow.ScrollRow = 180
ActiveWindow.ScrollRow = 175
ActiveWindow.ScrollRow = 167
ActiveWindow.ScrollRow = 160
ActiveWindow.ScrollRow = 153
ActiveWindow.ScrollRow = 146
ActiveWindow.ScrollRow = 141
ActiveWindow.ScrollRow = 136
ActiveWindow.ScrollRow = 129
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 78
ActiveWindow.ScrollRow = 73
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
Range("S1:U500").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=51
ActiveWindow.ScrollRow = 518
ActiveWindow.ScrollRow = 520
ActiveWindow.ScrollRow = 522
ActiveWindow.ScrollRow = 525
ActiveWindow.ScrollRow = 530
ActiveWindow.ScrollRow = 532
ActiveWindow.ScrollRow = 537
ActiveWindow.ScrollRow = 542
ActiveWindow.ScrollRow = 546
ActiveWindow.ScrollRow = 554
ActiveWindow.ScrollRow = 558
ActiveWindow.ScrollRow = 563
ActiveWindow.ScrollRow = 568
ActiveWindow.ScrollRow = 573
ActiveWindow.ScrollRow = 578
ActiveWindow.ScrollRow = 583
ActiveWindow.ScrollRow = 585
ActiveWindow.ScrollRow = 587
ActiveWindow.ScrollRow = 590
ActiveWindow.ScrollRow = 592
ActiveWindow.ScrollRow = 595
ActiveWindow.ScrollRow = 597
ActiveWindow.ScrollRow = 599
ActiveWindow.ScrollRow = 597
ActiveWindow.ScrollRow = 599
ActiveWindow.ScrollRow = 602
ActiveWindow.ScrollRow = 604
ActiveWindow.ScrollRow = 607
ActiveWindow.ScrollRow = 609
ActiveWindow.ScrollRow = 614
ActiveWindow.ScrollRow = 616
ActiveWindow.ScrollRow = 621
ActiveWindow.ScrollRow = 628
ActiveWindow.ScrollRow = 633
ActiveWindow.ScrollRow = 638
ActiveWindow.ScrollRow = 645
ActiveWindow.ScrollRow = 650
ActiveWindow.ScrollRow = 655
ActiveWindow.ScrollRow = 657
ActiveWindow.ScrollRow = 662
ActiveWindow.ScrollRow = 664
ActiveWindow.ScrollRow = 667
ActiveWindow.ScrollRow = 669
ActiveWindow.ScrollRow = 672
ActiveWindow.ScrollRow = 669
ActiveWindow.ScrollRow = 672
ActiveWindow.ScrollRow = 674
ActiveWindow.ScrollRow = 679
ActiveWindow.ScrollRow = 684
ActiveWindow.ScrollRow = 686
ActiveWindow.ScrollRow = 689
ActiveWindow.ScrollRow = 691
ActiveWindow.ScrollRow = 693
ActiveWindow.ScrollRow = 696
ActiveWindow.ScrollRow = 698
ActiveWindow.ScrollRow = 701
ActiveWindow.ScrollRow = 703
ActiveWindow.ScrollRow = 705
ActiveWindow.ScrollRow = 708
ActiveWindow.ScrollRow = 710
ActiveWindow.ScrollRow = 713
ActiveWindow.ScrollRow = 715
ActiveWindow.ScrollRow = 717
ActiveWindow.ScrollRow = 720
ActiveWindow.ScrollRow = 722
ActiveWindow.ScrollRow = 727
ActiveWindow.ScrollRow = 729
ActiveWindow.ScrollRow = 734
ActiveWindow.ScrollRow = 737
ActiveWindow.ScrollRow = 741
ActiveWindow.ScrollRow = 749
ActiveWindow.ScrollRow = 754
ActiveWindow.ScrollRow = 758
ActiveWindow.ScrollRow = 763
ActiveWindow.ScrollRow = 768
ActiveWindow.ScrollRow = 773
ActiveWindow.ScrollRow = 775
ActiveWindow.ScrollRow = 782
ActiveWindow.ScrollRow = 785
ActiveWindow.ScrollRow = 790
ActiveWindow.ScrollRow = 797
ActiveWindow.ScrollRow = 799
ActiveWindow.ScrollRow = 802
ActiveWindow.ScrollRow = 804
ActiveWindow.ScrollRow = 809
ActiveWindow.ScrollRow = 811
ActiveWindow.ScrollRow = 814
ActiveWindow.ScrollRow = 819
ActiveWindow.ScrollRow = 821
ActiveWindow.ScrollRow = 823
ActiveWindow.ScrollRow = 826
ActiveWindow.ScrollRow = 828
ActiveWindow.ScrollRow = 831
ActiveWindow.ScrollRow = 833
ActiveWindow.ScrollRow = 835
ActiveWindow.ScrollRow = 838
ActiveWindow.ScrollRow = 840
ActiveWindow.ScrollRow = 843
ActiveWindow.ScrollRow = 845
ActiveWindow.ScrollRow = 847
ActiveWindow.ScrollRow = 850
ActiveWindow.ScrollRow = 852
ActiveWindow.ScrollRow = 855
ActiveWindow.ScrollRow = 859
ActiveWindow.ScrollRow = 862
ActiveWindow.ScrollRow = 864
ActiveWindow.ScrollRow = 867
ActiveWindow.ScrollRow = 869
ActiveWindow.ScrollRow = 872
ActiveWindow.ScrollRow = 874
ActiveWindow.ScrollRow = 876
ActiveWindow.ScrollRow = 879
ActiveWindow.ScrollRow = 881
ActiveWindow.ScrollRow = 884
ActiveWindow.ScrollRow = 886
ActiveWindow.ScrollRow = 888
ActiveWindow.ScrollRow = 891
ActiveWindow.ScrollRow = 893
ActiveWindow.ScrollRow = 896
ActiveWindow.ScrollRow = 898
ActiveWindow.ScrollRow = 900
ActiveWindow.ScrollRow = 903
ActiveWindow.ScrollRow = 905
ActiveWindow.ScrollRow = 910
ActiveWindow.ScrollRow = 912
ActiveWindow.ScrollRow = 915
ActiveWindow.ScrollRow = 917
ActiveWindow.ScrollRow = 920
ActiveWindow.ScrollRow = 922
ActiveWindow.ScrollRow = 925
ActiveWindow.ScrollRow = 927
ActiveWindow.ScrollRow = 929
ActiveWindow.ScrollRow = 932
ActiveWindow.ScrollRow = 934
ActiveWindow.ScrollRow = 937
ActiveWindow.ScrollRow = 939
ActiveWindow.ScrollRow = 941
ActiveWindow.ScrollRow = 944
ActiveWindow.ScrollRow = 946
ActiveWindow.ScrollRow = 949
ActiveWindow.ScrollRow = 951
ActiveWindow.SmallScroll Down:=3
Range("A1001").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollRow = 947
ActiveWindow.ScrollRow = 936
ActiveWindow.ScrollRow = 929
ActiveWindow.ScrollRow = 915
ActiveWindow.ScrollRow = 900
ActiveWindow.ScrollRow = 886
ActiveWindow.ScrollRow = 871
ActiveWindow.ScrollRow = 857
ActiveWindow.ScrollRow = 835
ActiveWindow.ScrollRow = 814
ActiveWindow.ScrollRow = 792
ActiveWindow.ScrollRow = 770
ActiveWindow.ScrollRow = 741
ActiveWindow.ScrollRow = 716
ActiveWindow.ScrollRow = 691
ActiveWindow.ScrollRow = 662
ActiveWindow.ScrollRow = 637
ActiveWindow.ScrollRow = 626
ActiveWindow.ScrollRow = 619
ActiveWindow.ScrollRow = 593
ActiveWindow.ScrollRow = 568
ActiveWindow.ScrollRow = 546
ActiveWindow.ScrollRow = 521
ActiveWindow.ScrollRow = 492
ActiveWindow.ScrollRow = 463
ActiveWindow.ScrollRow = 434
ActiveWindow.ScrollRow = 413
ActiveWindow.ScrollRow = 387
ActiveWindow.ScrollRow = 362
ActiveWindow.ScrollRow = 344
ActiveWindow.ScrollRow = 319
ActiveWindow.ScrollRow = 297
ActiveWindow.ScrollRow = 275
ActiveWindow.ScrollRow = 250
ActiveWindow.ScrollRow = 236
ActiveWindow.ScrollRow = 214
ActiveWindow.ScrollRow = 196
ActiveWindow.ScrollRow = 178
ActiveWindow.ScrollRow = 164
ActiveWindow.ScrollRow = 149
ActiveWindow.ScrollRow = 131
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 62
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
Range("V1:X500").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollRow = 474
ActiveWindow.ScrollRow = 478
ActiveWindow.ScrollRow = 485
ActiveWindow.ScrollRow = 492
ActiveWindow.ScrollRow = 496
ActiveWindow.ScrollRow = 503
ActiveWindow.ScrollRow = 517
ActiveWindow.ScrollRow = 532
ActiveWindow.ScrollRow = 550
ActiveWindow.ScrollRow = 575
ActiveWindow.ScrollRow = 601
ActiveWindow.ScrollRow = 626
ActiveWindow.ScrollRow = 655
ActiveWindow.ScrollRow = 687
ActiveWindow.ScrollRow = 723
ActiveWindow.ScrollRow = 756
ActiveWindow.ScrollRow = 788
ActiveWindow.ScrollRow = 821
ActiveWindow.ScrollRow = 857
ActiveWindow.ScrollRow = 889
ActiveWindow.ScrollRow = 926
ActiveWindow.ScrollRow = 958
ActiveWindow.ScrollRow = 987
ActiveWindow.ScrollRow = 1016
ActiveWindow.ScrollRow = 1041
ActiveWindow.ScrollRow = 1063
ActiveWindow.ScrollRow = 1081
ActiveWindow.ScrollRow = 1095
ActiveWindow.ScrollRow = 1117
ActiveWindow.ScrollRow = 1124
ActiveWindow.ScrollRow = 1131
ActiveWindow.ScrollRow = 1142
ActiveWindow.ScrollRow = 1149
ActiveWindow.ScrollRow = 1160
ActiveWindow.ScrollRow = 1168
ActiveWindow.ScrollRow = 1178
ActiveWindow.ScrollRow = 1193
ActiveWindow.ScrollRow = 1211
ActiveWindow.ScrollRow = 1222
ActiveWindow.ScrollRow = 1236
ActiveWindow.ScrollRow = 1251
ActiveWindow.ScrollRow = 1261
ActiveWindow.ScrollRow = 1276
ActiveWindow.ScrollRow = 1287
ActiveWindow.ScrollRow = 1294
ActiveWindow.ScrollRow = 1301
ActiveWindow.ScrollRow = 1308
ActiveWindow.ScrollRow = 1316
ActiveWindow.ScrollRow = 1319
ActiveWindow.ScrollRow = 1323
ActiveWindow.ScrollRow = 1326
ActiveWindow.ScrollRow = 1330
ActiveWindow.ScrollRow = 1334
ActiveWindow.ScrollRow = 1341
ActiveWindow.ScrollRow = 1344
ActiveWindow.ScrollRow = 1352
ActiveWindow.ScrollRow = 1359
ActiveWindow.ScrollRow = 1366
ActiveWindow.ScrollRow = 1377
ActiveWindow.ScrollRow = 1384
ActiveWindow.ScrollRow = 1388
ActiveWindow.ScrollRow = 1391
ActiveWindow.ScrollRow = 1399
ActiveWindow.ScrollRow = 1409
ActiveWindow.ScrollRow = 1417
ActiveWindow.ScrollRow = 1420
ActiveWindow.ScrollRow = 1424
ActiveWindow.ScrollRow = 1431
ActiveWindow.ScrollRow = 1435
ActiveWindow.ScrollRow = 1438
ActiveWindow.ScrollRow = 1442
ActiveWindow.ScrollRow = 1446
ActiveWindow.ScrollRow = 1451
ActiveWindow.SmallScroll Down:=3
Range("J1501").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollRow = 1460
ActiveWindow.ScrollRow = 1465
ActiveWindow.ScrollRow = 1470
ActiveWindow.ScrollRow = 1479
ActiveWindow.ScrollRow = 1484
ActiveWindow.ScrollRow = 1489
ActiveWindow.ScrollRow = 1494
ActiveWindow.ScrollRow = 1503
ActiveWindow.ScrollRow = 1508
ActiveWindow.ScrollRow = 1513
ActiveWindow.ScrollRow = 1518
ActiveWindow.ScrollRow = 1522
ActiveWindow.ScrollRow = 1527
ActiveWindow.ScrollRow = 1532
ActiveWindow.ScrollRow = 1537
ActiveWindow.ScrollRow = 1547
ActiveWindow.ScrollRow = 1551
ActiveWindow.ScrollRow = 1556
ActiveWindow.ScrollRow = 1561
ActiveWindow.ScrollRow = 1566
ActiveWindow.ScrollRow = 1571
ActiveWindow.ScrollRow = 1575
ActiveWindow.ScrollRow = 1580
ActiveWindow.ScrollRow = 1585
ActiveWindow.ScrollRow = 1590
ActiveWindow.ScrollRow = 1595
ActiveWindow.ScrollRow = 1600
ActiveWindow.ScrollRow = 1604
ActiveWindow.ScrollRow = 1609
ActiveWindow.ScrollRow = 1614
ActiveWindow.ScrollRow = 1619
ActiveWindow.ScrollRow = 1628
ActiveWindow.ScrollRow = 1638
ActiveWindow.ScrollRow = 1643
ActiveWindow.ScrollRow = 1648
ActiveWindow.ScrollRow = 1652
ActiveWindow.ScrollRow = 1657
ActiveWindow.ScrollRow = 1662
ActiveWindow.ScrollRow = 1667
ActiveWindow.ScrollRow = 1672
ActiveWindow.ScrollRow = 1677
ActiveWindow.ScrollRow = 1681
ActiveWindow.ScrollRow = 1686
ActiveWindow.ScrollRow = 1691
ActiveWindow.ScrollRow = 1696
ActiveWindow.ScrollRow = 1701
ActiveWindow.ScrollRow = 1705
ActiveWindow.ScrollRow = 1715
ActiveWindow.ScrollRow = 1720
ActiveWindow.ScrollRow = 1725
ActiveWindow.ScrollRow = 1730
ActiveWindow.ScrollRow = 1734
ActiveWindow.ScrollRow = 1739
ActiveWindow.ScrollRow = 1744
ActiveWindow.ScrollRow = 1754
ActiveWindow.ScrollRow = 1758
ActiveWindow.ScrollRow = 1763
ActiveWindow.ScrollRow = 1768
ActiveWindow.ScrollRow = 1773
ActiveWindow.ScrollRow = 1778
ActiveWindow.ScrollRow = 1782
ActiveWindow.ScrollRow = 1787
ActiveWindow.ScrollRow = 1782
ActiveWindow.ScrollRow = 1792
ActiveWindow.ScrollRow = 1797
ActiveWindow.ScrollRow = 1807
ActiveWindow.ScrollRow = 1821
ActiveWindow.ScrollRow = 1831
ActiveWindow.ScrollRow = 1835
ActiveWindow.ScrollRow = 1850
ActiveWindow.ScrollRow = 1855
ActiveWindow.ScrollRow = 1864
ActiveWindow.ScrollRow = 1869
ActiveWindow.ScrollRow = 1879
ActiveWindow.ScrollRow = 1884
ActiveWindow.ScrollRow = 1888
ActiveWindow.ScrollRow = 1893
ActiveWindow.ScrollRow = 1898
ActiveWindow.ScrollRow = 1903
ActiveWindow.ScrollRow = 1908
ActiveWindow.ScrollRow = 1912
ActiveWindow.ScrollRow = 1917
ActiveWindow.ScrollRow = 1922
ActiveWindow.ScrollRow = 1932
ActiveWindow.ScrollRow = 1937
ActiveWindow.ScrollRow = 1941
ActiveWindow.ScrollRow = 1946
ActiveWindow.ScrollRow = 1951
ActiveWindow.ScrollRow = 1455
ActiveWindow.ScrollRow = 1951
ActiveWindow.SmallScroll Down:=15
Range("A1:C1072").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
 

Excel Facts

What is the shortcut key for Format Selection?
Ctrl+1 (the number one) will open the Format dialog for whatever is selected.
Sort by date Sort by votes
Hi,

If it's only a copy / paste / sort it should be very doable. But I'm afraid it will be easier to see the data you are copying and how you would it pasted, i.e. your expected results and the original data.

Thanks
 
Upvote 0
You must log in or register to reply here.

Similar threads

P
  • Question
Help with Vba Code
Replies
3
Views
142
Coyotex3
C
VinceF
  • Solved
VBA to Copy paste value based on value in cell
Replies
4
Views
296
VinceF
VinceF
C
  • Solved
Automation error The Object invoked has disconnected from its clients.
Replies
7
Views
662
cstuder
C
An Quala
  • Question
Should I name it Active.Sheet or sheet name?
Replies
8
Views
627
MARK858
MARK858
M
  • Question
VBS Crash
Replies
1
Views
631
Alex Blakenburg
A

Forum statistics

Threads
1,214,422
Messages
6,119,396
Members
448,891
Latest member
tpierce

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