aufgezeichnetes Makro vereinfachen
31.01.2019 15:49:49
Christian
Was es tun soll:
1. Die Formeln, die in B1, C1, E1 und K1 stehen bis zum Ende der Datensätze kopieren.
2. ab Zeile 2 die Werte einfügen (damit wieder nur in Zeile 1 Formeln stehen).
3. den Inhalt von Spalte K in Spalet F kopieren und werte Einfügen, damit in F1 keine Formel steht.
4. Die Tabelle in der Reihenfolge Spalte C nach Alter absteigend, dann Spalte F nach Alter aufsteigend sortieren.
5. Die Formeln, die in G1, H1, I1 und J1 stehen bis zum Ende der Datensätze kopieren.
6. ab Zeile 2 die Werte einfügen (damit wieder nur in Zeile 1 Formeln stehen)
Geht das? Ich wäre euch sehr dankbar.
Hier noch das Makro, ich weiß ich hab noch ein paar mal zwischendurch gescrollt und rumgeklickt, das kann natürlich gelöscht werden:
Sub Makro3()
' Makro3 Makro
Range("B1:C1").Select
Selection.Copy
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 67
ActiveWindow.ScrollRow = 75
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 138
ActiveWindow.ScrollRow = 165
ActiveWindow.ScrollRow = 178
ActiveWindow.ScrollRow = 215
ActiveWindow.ScrollRow = 478
ActiveWindow.ScrollRow = 529
ActiveWindow.ScrollRow = 543
ActiveWindow.ScrollRow = 572
ActiveWindow.ScrollRow = 585
ActiveWindow.ScrollRow = 617
ActiveWindow.ScrollRow = 629
ActiveWindow.ScrollRow = 740
ActiveWindow.ScrollRow = 730
ActiveWindow.ScrollRow = 723
ActiveWindow.ScrollRow = 713
ActiveWindow.ScrollRow = 712
ActiveWindow.ScrollRow = 699
ActiveWindow.ScrollRow = 698
ActiveWindow.ScrollRow = 703
ActiveWindow.ScrollRow = 713
ActiveWindow.ScrollRow = 723
ActiveWindow.ScrollRow = 736
ActiveWindow.ScrollRow = 767
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 995
ActiveWindow.ScrollRow = 1010
ActiveWindow.ScrollRow = 1016
ActiveWindow.ScrollRow = 1019
ActiveWindow.ScrollRow = 1024
ActiveWindow.ScrollRow = 1030
ActiveWindow.ScrollRow = 1035
ActiveWindow.ScrollRow = 1043
Range("B1:C1080").Select
ActiveSheet.Paste
Range("B2:C2").Select
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 172
ActiveWindow.ScrollRow = 213
ActiveWindow.ScrollRow = 312
ActiveWindow.ScrollRow = 333
ActiveWindow.ScrollRow = 695
ActiveWindow.ScrollRow = 737
ActiveWindow.ScrollRow = 789
ActiveWindow.ScrollRow = 800
ActiveWindow.ScrollRow = 1020
ActiveWindow.ScrollRow = 1037
ActiveWindow.ScrollRow = 1043
Range("B2:C1080").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E1").Select
Application.CutCopyMode = False
Selection.Copy
Range("E2").Select
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 131
ActiveWindow.ScrollRow = 143
ActiveWindow.ScrollRow = 169
ActiveWindow.ScrollRow = 179
ActiveWindow.ScrollRow = 200
ActiveWindow.ScrollRow = 210
ActiveWindow.ScrollRow = 231
ActiveWindow.ScrollRow = 238
ActiveWindow.ScrollRow = 578
ActiveWindow.ScrollRow = 599
ActiveWindow.ScrollRow = 616
ActiveWindow.ScrollRow = 647
ActiveWindow.ScrollRow = 661
ActiveWindow.ScrollRow = 795
ActiveWindow.ScrollRow = 805
ActiveWindow.ScrollRow = 821
ActiveWindow.ScrollRow = 833
ActiveWindow.ScrollRow = 838
ActiveWindow.ScrollRow = 843
ActiveWindow.ScrollRow = 847
ActiveWindow.ScrollRow = 851
ActiveWindow.ScrollRow = 858
ActiveWindow.ScrollRow = 862
ActiveWindow.ScrollRow = 866
ActiveWindow.ScrollRow = 871
ActiveWindow.ScrollRow = 875
ActiveWindow.ScrollRow = 882
ActiveWindow.ScrollRow = 886
ActiveWindow.ScrollRow = 890
ActiveWindow.ScrollRow = 892
ActiveWindow.ScrollRow = 895
ActiveWindow.ScrollRow = 899
ActiveWindow.ScrollRow = 902
ActiveWindow.ScrollRow = 903
ActiveWindow.ScrollRow = 907
ActiveWindow.ScrollRow = 913
ActiveWindow.ScrollRow = 916
ActiveWindow.ScrollRow = 920
ActiveWindow.ScrollRow = 924
ActiveWindow.ScrollRow = 928
ActiveWindow.ScrollRow = 934
ActiveWindow.ScrollRow = 938
ActiveWindow.ScrollRow = 941
ActiveWindow.ScrollRow = 944
ActiveWindow.ScrollRow = 945
ActiveWindow.ScrollRow = 950
ActiveWindow.ScrollRow = 951
ActiveWindow.ScrollRow = 954
ActiveWindow.ScrollRow = 955
ActiveWindow.ScrollRow = 959
ActiveWindow.ScrollRow = 964
ActiveWindow.ScrollRow = 966
ActiveWindow.ScrollRow = 971
ActiveWindow.ScrollRow = 974
ActiveWindow.ScrollRow = 979
ActiveWindow.ScrollRow = 983
ActiveWindow.ScrollRow = 985
ActiveWindow.ScrollRow = 988
ActiveWindow.ScrollRow = 990
ActiveWindow.ScrollRow = 992
ActiveWindow.ScrollRow = 995
ActiveWindow.ScrollRow = 996
ActiveWindow.ScrollRow = 999
ActiveWindow.ScrollRow = 1003
ActiveWindow.ScrollRow = 1004
ActiveWindow.ScrollRow = 1009
ActiveWindow.ScrollRow = 1010
ActiveWindow.ScrollRow = 1013
ActiveWindow.ScrollRow = 1016
ActiveWindow.ScrollRow = 1017
ActiveWindow.ScrollRow = 1020
ActiveWindow.ScrollRow = 1021
ActiveWindow.ScrollRow = 1023
ActiveWindow.ScrollRow = 1024
ActiveWindow.ScrollRow = 1028
ActiveWindow.ScrollRow = 1033
ActiveWindow.ScrollRow = 1038
ActiveWindow.ScrollRow = 1041
ActiveWindow.ScrollRow = 1043
Range("E2:E1080").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 62
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 150
ActiveWindow.ScrollRow = 210
ActiveWindow.ScrollRow = 269
ActiveWindow.ScrollRow = 364
ActiveWindow.ScrollRow = 403
ActiveWindow.ScrollRow = 745
ActiveWindow.ScrollRow = 757
ActiveWindow.ScrollRow = 755
ActiveWindow.ScrollRow = 752
ActiveWindow.ScrollRow = 747
ActiveWindow.ScrollRow = 745
ActiveWindow.ScrollRow = 744
ActiveWindow.ScrollRow = 743
ActiveWindow.ScrollRow = 741
ActiveWindow.ScrollRow = 740
ActiveWindow.ScrollRow = 737
ActiveWindow.ScrollRow = 733
ActiveWindow.ScrollRow = 721
ActiveWindow.ScrollRow = 720
ActiveWindow.ScrollRow = 719
ActiveWindow.ScrollRow = 716
ActiveWindow.ScrollRow = 717
ActiveWindow.ScrollRow = 719
ActiveWindow.ScrollRow = 720
ActiveWindow.ScrollRow = 724
ActiveWindow.ScrollRow = 728
ActiveWindow.ScrollRow = 731
ActiveWindow.ScrollRow = 734
ActiveWindow.ScrollRow = 738
ActiveWindow.ScrollRow = 743
ActiveWindow.ScrollRow = 750
ActiveWindow.ScrollRow = 755
ActiveWindow.ScrollRow = 757
ActiveWindow.ScrollRow = 755
ActiveWindow.ScrollRow = 752
ActiveWindow.ScrollRow = 724
ActiveWindow.ScrollRow = 723
ActiveWindow.ScrollRow = 726
ActiveWindow.ScrollRow = 727
ActiveWindow.ScrollRow = 730
ActiveWindow.ScrollRow = 741
ActiveWindow.ScrollRow = 751
ActiveWindow.ScrollRow = 765
ActiveWindow.ScrollRow = 779
ActiveWindow.ScrollRow = 796
ActiveWindow.ScrollRow = 844
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 1043
Range("K1:K1080").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("K2").Select
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 153
ActiveWindow.ScrollRow = 177
ActiveWindow.ScrollRow = 202
ActiveWindow.ScrollRow = 215
ActiveWindow.ScrollRow = 260
ActiveWindow.ScrollRow = 275
ActiveWindow.ScrollRow = 289
ActiveWindow.ScrollRow = 317
ActiveWindow.ScrollRow = 333
ActiveWindow.ScrollRow = 391
ActiveWindow.ScrollRow = 755
ActiveWindow.ScrollRow = 754
ActiveWindow.ScrollRow = 748
ActiveWindow.ScrollRow = 731
ActiveWindow.ScrollRow = 717
ActiveWindow.ScrollRow = 695
ActiveWindow.ScrollRow = 686
ActiveWindow.ScrollRow = 671
ActiveWindow.ScrollRow = 655
ActiveWindow.ScrollRow = 634
ActiveWindow.ScrollRow = 633
ActiveWindow.ScrollRow = 640
ActiveWindow.ScrollRow = 644
ActiveWindow.ScrollRow = 671
ActiveWindow.ScrollRow = 686
ActiveWindow.ScrollRow = 716
ActiveWindow.ScrollRow = 731
ActiveWindow.ScrollRow = 747
ActiveWindow.ScrollRow = 755
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 645
ActiveWindow.ScrollRow = 612
ActiveWindow.ScrollRow = 610
ActiveWindow.ScrollRow = 616
ActiveWindow.ScrollRow = 621
ActiveWindow.ScrollRow = 623
ActiveWindow.ScrollRow = 624
ActiveWindow.ScrollRow = 626
ActiveWindow.ScrollRow = 627
ActiveWindow.ScrollRow = 629
ActiveWindow.ScrollRow = 630
ActiveWindow.ScrollRow = 631
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 755
ActiveWindow.ScrollRow = 754
ActiveWindow.ScrollRow = 751
ActiveWindow.ScrollRow = 750
ActiveWindow.ScrollRow = 748
ActiveWindow.ScrollRow = 752
ActiveWindow.ScrollRow = 755
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 755
ActiveWindow.ScrollRow = 737
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 926
ActiveWindow.ScrollRow = 930
ActiveWindow.ScrollRow = 933
ActiveWindow.ScrollRow = 935
ActiveWindow.ScrollRow = 938
ActiveWindow.ScrollRow = 937
ActiveWindow.ScrollRow = 935
ActiveWindow.ScrollRow = 934
ActiveWindow.ScrollRow = 933
ActiveWindow.ScrollRow = 935
ActiveWindow.ScrollRow = 937
ActiveWindow.ScrollRow = 941
ActiveWindow.ScrollRow = 952
ActiveWindow.ScrollRow = 962
ActiveWindow.ScrollRow = 964
ActiveWindow.ScrollRow = 968
ActiveWindow.ScrollRow = 974
ActiveWindow.ScrollRow = 978
ActiveWindow.ScrollRow = 982
ActiveWindow.ScrollRow = 983
ActiveWindow.ScrollRow = 985
ActiveWindow.ScrollRow = 989
ActiveWindow.ScrollRow = 992
ActiveWindow.ScrollRow = 999
ActiveWindow.ScrollRow = 1006
ActiveWindow.ScrollRow = 1010
ActiveWindow.ScrollRow = 1016
ActiveWindow.ScrollRow = 1023
ActiveWindow.ScrollRow = 1033
ActiveWindow.ScrollRow = 1037
ActiveWindow.ScrollRow = 1041
ActiveWindow.ScrollRow = 1043
Range("K2:K1080").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("K:K").Select
Application.CutCopyMode = False
Selection.Copy
Columns("F:F").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1:K1080").Select
Range("B7").Activate
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Ergebnis").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Ergebnis").Sort.SortFields.Add2 Key:=Range( _
"C1:C1080"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Ergebnis").Sort.SortFields.Add2 Key:=Range( _
"F1:F1080"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Ergebnis").Sort
.SetRange Range("A1:K1080")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B2").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Range("C2").Select
Application.CutCopyMode = False
Selection.Copy
Range("C1").Select
ActiveSheet.Paste
Range("E2").Select
Application.CutCopyMode = False
Selection.Copy
Range("E1").Select
ActiveSheet.Paste
Range("G2").Select
Application.CutCopyMode = False
Selection.Copy
Range("G1").Select
ActiveSheet.Paste
Range("H2").Select
Application.CutCopyMode = False
Selection.Copy
Range("H1").Select
ActiveSheet.Paste
Range("I2").Select
Application.CutCopyMode = False
Selection.Copy
Range("I1").Select
ActiveSheet.Paste
Range("J2").Select
Application.CutCopyMode = False
Selection.Copy
Range("J1").Select
ActiveSheet.Paste
Range("K2").Select
Application.CutCopyMode = False
Selection.Copy
Range("K1").Select
ActiveSheet.Paste
Rows("2:2").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G1:J1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 136
ActiveWindow.ScrollRow = 140
ActiveWindow.ScrollRow = 144
ActiveWindow.ScrollRow = 147
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 158
ActiveWindow.ScrollRow = 163
ActiveWindow.ScrollRow = 165
ActiveWindow.ScrollRow = 168
ActiveWindow.ScrollRow = 175
ActiveWindow.ScrollRow = 180
ActiveWindow.ScrollRow = 184
ActiveWindow.ScrollRow = 188
ActiveWindow.ScrollRow = 191
ActiveWindow.ScrollRow = 194
ActiveWindow.ScrollRow = 195
ActiveWindow.ScrollRow = 198
ActiveWindow.ScrollRow = 199
ActiveWindow.ScrollRow = 202
ActiveWindow.ScrollRow = 203
ActiveWindow.ScrollRow = 205
ActiveWindow.ScrollRow = 206
ActiveWindow.ScrollRow = 209
ActiveWindow.ScrollRow = 211
ActiveWindow.ScrollRow = 213
ActiveWindow.ScrollRow = 216
ActiveWindow.ScrollRow = 218
ActiveWindow.ScrollRow = 219
ActiveWindow.ScrollRow = 220
ActiveWindow.ScrollRow = 223
ActiveWindow.ScrollRow = 225
ActiveWindow.ScrollRow = 226
ActiveWindow.ScrollRow = 227
ActiveWindow.ScrollRow = 229
ActiveWindow.ScrollRow = 230
ActiveWindow.ScrollRow = 232
ActiveWindow.ScrollRow = 233
ActiveWindow.ScrollRow = 234
ActiveWindow.ScrollRow = 236
ActiveWindow.ScrollRow = 237
ActiveWindow.ScrollRow = 239
ActiveWindow.ScrollRow = 240
ActiveWindow.ScrollRow = 243
ActiveWindow.ScrollRow = 244
ActiveWindow.ScrollRow = 247
ActiveWindow.ScrollRow = 250
ActiveWindow.ScrollRow = 251
ActiveWindow.ScrollRow = 253
ActiveWindow.ScrollRow = 254
ActiveWindow.ScrollRow = 258
ActiveWindow.ScrollRow = 260
ActiveWindow.ScrollRow = 261
ActiveWindow.ScrollRow = 263
ActiveWindow.ScrollRow = 264
ActiveWindow.ScrollRow = 265
ActiveWindow.ScrollRow = 268
ActiveWindow.ScrollRow = 270
ActiveWindow.ScrollRow = 271
ActiveWindow.ScrollRow = 274
ActiveWindow.ScrollRow = 277
ActiveWindow.ScrollRow = 278
ActiveWindow.ScrollRow = 280
ActiveWindow.ScrollRow = 281
ActiveWindow.ScrollRow = 282
ActiveWindow.ScrollRow = 284
ActiveWindow.ScrollRow = 287
ActiveWindow.ScrollRow = 289
ActiveWindow.ScrollRow = 291
ActiveWindow.ScrollRow = 294
ActiveWindow.ScrollRow = 296
ActiveWindow.ScrollRow = 299
ActiveWindow.ScrollRow = 302
ActiveWindow.ScrollRow = 304
ActiveWindow.ScrollRow = 306
ActiveWindow.ScrollRow = 309
ActiveWindow.ScrollRow = 311
ActiveWindow.ScrollRow = 313
ActiveWindow.ScrollRow = 318
ActiveWindow.ScrollRow = 319
ActiveWindow.ScrollRow = 323
ActiveWindow.ScrollRow = 326
ActiveWindow.ScrollRow = 329
ActiveWindow.ScrollRow = 335
ActiveWindow.ScrollRow = 337
ActiveWindow.ScrollRow = 340
ActiveWindow.ScrollRow = 344
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 351
ActiveWindow.ScrollRow = 354
ActiveWindow.ScrollRow = 357
ActiveWindow.ScrollRow = 360
ActiveWindow.ScrollRow = 366
ActiveWindow.ScrollRow = 368
ActiveWindow.ScrollRow = 373
ActiveWindow.ScrollRow = 375
ActiveWindow.ScrollRow = 380
ActiveWindow.ScrollRow = 387
ActiveWindow.ScrollRow = 392
ActiveWindow.ScrollRow = 395
ActiveWindow.ScrollRow = 399
ActiveWindow.ScrollRow = 404
ActiveWindow.ScrollRow = 409
ActiveWindow.ScrollRow = 412
ActiveWindow.ScrollRow = 416
ActiveWindow.ScrollRow = 419
ActiveWindow.ScrollRow = 426
ActiveWindow.ScrollRow = 430
ActiveWindow.ScrollRow = 433
ActiveWindow.ScrollRow = 436
ActiveWindow.ScrollRow = 439
ActiveWindow.ScrollRow = 444
ActiveWindow.ScrollRow = 446
ActiveWindow.ScrollRow = 449
ActiveWindow.ScrollRow = 452
ActiveWindow.ScrollRow = 453
ActiveWindow.ScrollRow = 456
ActiveWindow.ScrollRow = 459
ActiveWindow.ScrollRow = 460
ActiveWindow.ScrollRow = 461
ActiveWindow.ScrollRow = 463
ActiveWindow.ScrollRow = 467
ActiveWindow.ScrollRow = 470
ActiveWindow.ScrollRow = 473
ActiveWindow.ScrollRow = 475
ActiveWindow.ScrollRow = 478
ActiveWindow.ScrollRow = 481
ActiveWindow.ScrollRow = 484
ActiveWindow.ScrollRow = 487
ActiveWindow.ScrollRow = 491
ActiveWindow.ScrollRow = 499
ActiveWindow.ScrollRow = 505
ActiveWindow.ScrollRow = 509
ActiveWindow.ScrollRow = 515
ActiveWindow.ScrollRow = 519
ActiveWindow.ScrollRow = 529
ActiveWindow.ScrollRow = 536
ActiveWindow.ScrollRow = 543
ActiveWindow.ScrollRow = 549
ActiveWindow.ScrollRow = 557
ActiveWindow.ScrollRow = 569
ActiveWindow.ScrollRow = 576
ActiveWindow.ScrollRow = 581
ActiveWindow.ScrollRow = 587
ActiveWindow.ScrollRow = 594
ActiveWindow.ScrollRow = 601
ActiveWindow.ScrollRow = 605
ActiveWindow.ScrollRow = 611
ActiveWindow.ScrollRow = 615
ActiveWindow.ScrollRow = 625
ActiveWindow.ScrollRow = 631
ActiveWindow.ScrollRow = 635
ActiveWindow.ScrollRow = 639
ActiveWindow.ScrollRow = 642
ActiveWindow.ScrollRow = 646
ActiveWindow.ScrollRow = 647
ActiveWindow.ScrollRow = 649
ActiveWindow.ScrollRow = 653
ActiveWindow.ScrollRow = 656
ActiveWindow.ScrollRow = 662
ActiveWindow.ScrollRow = 666
ActiveWindow.ScrollRow = 669
ActiveWindow.ScrollRow = 673
ActiveWindow.ScrollRow = 676
ActiveWindow.ScrollRow = 681
ActiveWindow.ScrollRow = 686
ActiveWindow.ScrollRow = 688
ActiveWindow.ScrollRow = 691
ActiveWindow.ScrollRow = 694
ActiveWindow.ScrollRow = 698
ActiveWindow.ScrollRow = 701
ActiveWindow.ScrollRow = 705
ActiveWindow.ScrollRow = 708
ActiveWindow.ScrollRow = 717
ActiveWindow.ScrollRow = 721
ActiveWindow.ScrollRow = 725
ActiveWindow.ScrollRow = 729
ActiveWindow.ScrollRow = 733
ActiveWindow.ScrollRow = 739
ActiveWindow.ScrollRow = 743
ActiveWindow.ScrollRow = 746
ActiveWindow.ScrollRow = 750
ActiveWindow.ScrollRow = 753
ActiveWindow.ScrollRow = 760
ActiveWindow.ScrollRow = 764
ActiveWindow.ScrollRow = 769
ActiveWindow.ScrollRow = 773
ActiveWindow.ScrollRow = 777
ActiveWindow.ScrollRow = 784
ActiveWindow.ScrollRow = 788
ActiveWindow.ScrollRow = 794
ActiveWindow.ScrollRow = 798
ActiveWindow.ScrollRow = 808
ActiveWindow.ScrollRow = 812
ActiveWindow.ScrollRow = 817
ActiveWindow.ScrollRow = 822
ActiveWindow.ScrollRow = 825
ActiveWindow.ScrollRow = 832
ActiveWindow.ScrollRow = 881
ActiveWindow.ScrollRow = 888
ActiveWindow.ScrollRow = 897
ActiveWindow.ScrollRow = 900
ActiveWindow.ScrollRow = 904
ActiveWindow.ScrollRow = 907
ActiveWindow.ScrollRow = 911
ActiveWindow.ScrollRow = 914
ActiveWindow.ScrollRow = 917
ActiveWindow.ScrollRow = 921
ActiveWindow.ScrollRow = 924
ActiveWindow.ScrollRow = 925
ActiveWindow.ScrollRow = 928
ActiveWindow.ScrollRow = 932
ActiveWindow.ScrollRow = 934
ActiveWindow.ScrollRow = 936
ActiveWindow.ScrollRow = 938
ActiveWindow.ScrollRow = 941
ActiveWindow.ScrollRow = 942
ActiveWindow.ScrollRow = 945
ActiveWindow.ScrollRow = 948
ActiveWindow.ScrollRow = 949
ActiveWindow.ScrollRow = 952
ActiveWindow.ScrollRow = 953
ActiveWindow.ScrollRow = 955
ActiveWindow.ScrollRow = 958
ActiveWindow.ScrollRow = 959
ActiveWindow.ScrollRow = 962
ActiveWindow.ScrollRow = 963
ActiveWindow.ScrollRow = 965
ActiveWindow.ScrollRow = 969
ActiveWindow.ScrollRow = 973
ActiveWindow.ScrollRow = 976
ActiveWindow.ScrollRow = 980
ActiveWindow.ScrollRow = 984
ActiveWindow.ScrollRow = 989
ActiveWindow.ScrollRow = 991
ActiveWindow.ScrollRow = 994
ActiveWindow.ScrollRow = 996
ActiveWindow.ScrollRow = 997
ActiveWindow.ScrollRow = 1001
ActiveWindow.ScrollRow = 1004
ActiveWindow.ScrollRow = 1007
ActiveWindow.ScrollRow = 1010
ActiveWindow.ScrollRow = 1011
ActiveWindow.ScrollRow = 1014
ActiveWindow.ScrollRow = 1015
ActiveWindow.ScrollRow = 1017
ActiveWindow.ScrollRow = 1018
ActiveWindow.ScrollRow = 1020
ActiveWindow.ScrollRow = 1024
ActiveWindow.ScrollRow = 1029
ActiveWindow.ScrollRow = 1031
ActiveWindow.ScrollRow = 1035
ActiveWindow.ScrollRow = 1039
ActiveWindow.ScrollRow = 1041
ActiveWindow.ScrollRow = 1042
ActiveWindow.ScrollRow = 1044
Range("G1:J1080").Select
ActiveSheet.Paste
Range("G2").Select
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 146
ActiveWindow.ScrollRow = 201
ActiveWindow.ScrollRow = 319
ActiveWindow.ScrollRow = 354
ActiveWindow.ScrollRow = 419
ActiveWindow.ScrollRow = 432
ActiveWindow.ScrollRow = 481
ActiveWindow.ScrollRow = 681
ActiveWindow.ScrollRow = 725
ActiveWindow.ScrollRow = 756
ActiveWindow.ScrollRow = 788
ActiveWindow.ScrollRow = 807
ActiveWindow.ScrollRow = 824
ActiveWindow.ScrollRow = 838
ActiveWindow.ScrollRow = 846
ActiveWindow.ScrollRow = 873
ActiveWindow.ScrollRow = 893
ActiveWindow.ScrollRow = 903
ActiveWindow.ScrollRow = 908
ActiveWindow.ScrollRow = 976
ActiveWindow.ScrollRow = 987
ActiveWindow.ScrollRow = 997
ActiveWindow.ScrollRow = 1004
ActiveWindow.ScrollRow = 1010
ActiveWindow.ScrollRow = 1021
ActiveWindow.ScrollRow = 1028
ActiveWindow.ScrollRow = 1032
ActiveWindow.ScrollRow = 1034
ActiveWindow.ScrollRow = 1038
ActiveWindow.ScrollRow = 1041
ActiveWindow.ScrollRow = 1044
Range("G2:J1080").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E2").Select
End Sub