Shorten Recorded Macro?

sezuh · Jun 4, 2011

Hi,
I’ve solved this tread below manually and after that i recorded what i did with Macro,is that possible to shorten it up, and would i be able to used in different list?
http://www.mrexcel.com/forum/showthread.php?t=553432
Here is the Recorded Macro;

Code:

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("A1:A35").Select
    Selection.Cut
    Range("C1").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Columns("A:A").Select
    ActiveWorkbook.Worksheets("sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("sheet1").Sort.SortFields.Add Key:=Range("A1") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("sheet1").Sort
        .SetRange Range("A1:A5526")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A67").Select
    Selection.Cut
    ActiveWindow.LargeScroll Down:=-2
    Range("D1").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    Range("A92").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 1
    Range("E1").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 162
    ActiveWindow.ScrollRow = 171
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 189
    ActiveWindow.ScrollRow = 198
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 171
    ActiveWindow.ScrollRow = 162
    ActiveWindow.ScrollRow = 153
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 81
    Range("A105").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 1
    Range("F1").Select
    ActiveSheet.Paste
    Range("A30").Select
    Selection.Cut
    Range("D2").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    Range("A93").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 1
    Range("E2").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 99
    Range("A104").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 1
    Range("F2").Select
    ActiveSheet.Paste
    Range("A29").Select
    Selection.Cut
    Range("D3").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    Range("A94").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E3").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 90
    Range("A103").Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-3
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F3").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    Range("A32").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 1
    Range("D4").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A70").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E4").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    Range("A91").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 1
    Range("F4").Select
    ActiveSheet.Paste
    Range("A31").Select
    Selection.Cut
    ActiveWindow.LargeScroll Down:=-1
    Range("D5").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A71").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E5").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    Range("A90").Select
    Selection.Cut
    ActiveWindow.LargeScroll Down:=-2
    Range("F5").Select
    ActiveSheet.Paste
    Range("A34").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("D6").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A68").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E6").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    Range("A89").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 1
    Range("F6").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    Range("A33").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("D7").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A69").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E7").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    Range("A88").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F7").Select
    ActiveSheet.Paste
    Range("A8").Select
    Selection.Cut
    Range("D8").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 81
    Range("A95").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E8").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 99
    Range("A102").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F8").Select
    ActiveSheet.Paste
    Range("A7").Select
    Selection.Cut
    Range("D9").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 153
    ActiveWindow.ScrollRow = 162
    ActiveWindow.ScrollRow = 153
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    Range("A96").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E9").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 90
    Range("A101").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F9").Select
    ActiveSheet.Paste
    Range("A10").Select
    Selection.Cut
    Range("D10").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A74").Select
    Selection.Cut
    ActiveWindow.LargeScroll Down:=-2
    Range("E10").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    Range("A87").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F10").Select
    ActiveSheet.Paste
    Range("A9").Select
    Selection.Cut
    Range("D11").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    Range("A75").Select
    Selection.Cut
    ActiveWindow.LargeScroll Down:=-2
    Range("E11").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    Range("A86").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F11").Select
    ActiveSheet.Paste
    Range("A12").Select
    Selection.Cut
    Range("D12").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 64
    Range("A72").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E12").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    Range("A85").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F12").Select
    ActiveSheet.Paste
    Range("A11").Select
    Selection.Cut
    Range("D13").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    Range("A73").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E13").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    Range("A84").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F13").Select
    ActiveSheet.Paste
    Range("A2").Select
    Selection.Cut
    Range("D14").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    Range("A97").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E14").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    Range("A100").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F14").Select
    ActiveSheet.Paste
    Range("A1").Select
    Selection.Cut
    Range("D15").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    Range("A98").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E15").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 90
    Range("A99").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F15").Select
    ActiveSheet.Paste
    Range("A4").Select
    Selection.Cut
    Range("D16").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    Range("A78").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E16").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    Range("A83").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F16").Select
    ActiveSheet.Paste
    Range("A3").Select
    Selection.Cut
    Range("D17").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    Range("A79").Select
    Selection.Cut
    ActiveWindow.LargeScroll Down:=-2
    Range("E17").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 72
    Range("A82").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F17").Select
    ActiveSheet.Paste
    Range("A6").Select
    Selection.Cut
    Range("D18").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    Range("A76").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E18").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    Range("A81").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F18").Select
    ActiveSheet.Paste
    Range("A5").Select
    Selection.Cut
    Range("D19").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("A5").Select
    Selection.Cut
    Range("D19").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    Range("A77").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 1
    Range("E19").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    Range("A80").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F19").Select
    ActiveSheet.Paste
    Range("A18").Select
    Selection.Cut
    Range("D20").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    Range("A45").Select
    Selection.Cut
    Range("E20").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    Range("A66").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F20").Select
    ActiveSheet.Paste
    Range("A17").Select
    Selection.Cut
    Range("D21").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    Range("A46").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E21").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A65").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F21").Select
    ActiveSheet.Paste
    Range("A20").Select
    Selection.Cut
    Range("D22").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    Range("A43").Select
    Selection.Cut
    Range("E22").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    Range("A64").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F22").Select
    ActiveSheet.Paste
    Range("A19").Select
    Selection.Cut
    Range("D23").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    Range("A44").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    Range("E23").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A63").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F23").Select
    ActiveSheet.Paste
    Range("A14").Select
    Selection.Cut
    Range("D24").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    Range("A49").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E24").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A62").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F24").Select
    ActiveSheet.Paste
    Range("A13").Select
    Selection.Cut
    Range("D25").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("A13").Select
    Selection.Cut
    Range("D25").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    Range("A50").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E25").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    Range("A61").Select
    Selection.Cut
    ActiveWindow.LargeScroll Down:=-2
    Range("F25").Select
    ActiveSheet.Paste
    Range("A16").Select
    Selection.Cut
    Range("D26").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    Range("A47").Select
    Selection.Cut
    Range("E26").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A60").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F26").Select
    ActiveSheet.Paste
    Range("A15").Select
    Selection.Cut
    Range("D27").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    Range("A48").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E27").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A59").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F27").Select
    ActiveSheet.Paste
    Range("A26").Select
    Selection.Cut
    Range("D28").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    Range("A37").Select
    Selection.Cut
    Range("E28").Select
    ActiveSheet.Paste
    ActiveWindow.LargeScroll Down:=-1
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    Range("A58").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F28").Select
    ActiveSheet.Paste
    Range("A25").Select
    Selection.Cut
    Range("D29").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    Range("A38").Select
    Selection.Cut
    Range("E29").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A57").Select
    Selection.Cut
    ActiveWindow.LargeScroll Down:=-1
    Range("F29").Select
    ActiveSheet.Paste
    Range("A28").Select
    Selection.Cut
    Range("D30").Select
    ActiveSheet.Paste
    Range("A35").Select
    Selection.Cut
    Range("E30").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A56").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F30").Select
    ActiveSheet.Paste
    Range("A27").Select
    Selection.Cut
    Range("D31").Select
    ActiveSheet.Paste
    Range("A36").Select
    Selection.Cut
    Range("E31").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    Range("A55").Select
    Selection.Cut
    Range("F31").Select
    ActiveSheet.Paste
    ActiveWindow.LargeScroll Down:=-1
    Range("F1").Select
    ActiveWindow.LargeScroll Down:=1
    Range("F31").Select
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    Range("A22").Select
    Selection.Cut
    Range("D32").Select
    ActiveSheet.Paste
    Range("A41").Select
    Selection.Cut
    Range("E32").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    Range("A54").Select
    Selection.Cut
    Range("F32").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("A54").Select
    Selection.Cut
    Range("F32").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    Range("A21").Select
    Selection.Cut
    Range("D33").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("A21").Select
    Selection.Cut
    Range("D33").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    Range("A42").Select
    Selection.Cut
    Range("E33").Select
    ActiveSheet.Paste
    Range("A53").Select
    Selection.Cut
    Range("F33").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 19
    Range("A24").Select
    Selection.Cut
    Range("D34").Select
    ActiveSheet.Paste
    Range("A39").Select
    Selection.Cut
    Range("E34").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("A39").Select
    Selection.Cut
    Range("E34").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 28
    Range("A52").Select
    Selection.Cut
    Range("F34").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    Range("A23").Select
    Selection.Cut
    Range("D35").Select
    ActiveSheet.Paste
    Range("A40").Select
    Selection.Cut
    Range("E35").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A51").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    Range("F35").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("A51").Select
    Selection.Cut
    Range("F35").Select
    ActiveSheet.Paste
End Sub

Thanks in advance for any help.
Kind regards
SEZUH

VoG · Jun 4, 2011

I've started this off for you. The pattern should be clear enough

Code:

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("A1:A35").Cut Range("C1")
    ActiveWorkbook.Worksheets("sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("sheet1").Sort.SortFields.Add Key:=Range("A1") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("sheet1").Sort
        .SetRange Range("A1:A5526")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A67").Cut Range("D1")
    Range("A92").Cut Range("E1")
    Range("A105").Cut Range("F1")
    Range("A30").Cut Range("D2")
    Range("A93").Cut Range("E2")
    Range("A104").Cut Range("F2")
    Range("A29").Cut Range("D3")
    Range("A94").Cut Range("E3")
    Range("A103").Cut Range("F3")
    Range("A32").Cut Range("D4")
    Range("A70").Cut Range("E4")
    Range("A91").Cut Range("F4")
    Range("A31").Cut Range("D5")
    Range("A71").Cut Range("E5")
    Range("A90").Select
    Selection.Cut
    ActiveWindow.LargeScroll Down:=-2
    Range("F5").Select
    ActiveSheet.Paste
    Range("A34").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("D6").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A68").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E6").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    Range("A89").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 1
    Range("F6").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    Range("A33").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("D7").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A69").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E7").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    Range("A88").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F7").Select
    ActiveSheet.Paste
    Range("A8").Select
    Selection.Cut
    Range("D8").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 81
    Range("A95").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E8").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 99
    Range("A102").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F8").Select
    ActiveSheet.Paste
    Range("A7").Select
    Selection.Cut
    Range("D9").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 153
    ActiveWindow.ScrollRow = 162
    ActiveWindow.ScrollRow = 153
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    Range("A96").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E9").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 90
    Range("A101").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F9").Select
    ActiveSheet.Paste
    Range("A10").Select
    Selection.Cut
    Range("D10").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A74").Select
    Selection.Cut
    ActiveWindow.LargeScroll Down:=-2
    Range("E10").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    Range("A87").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F10").Select
    ActiveSheet.Paste
    Range("A9").Select
    Selection.Cut
    Range("D11").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    Range("A75").Select
    Selection.Cut
    ActiveWindow.LargeScroll Down:=-2
    Range("E11").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    Range("A86").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F11").Select
    ActiveSheet.Paste
    Range("A12").Select
    Selection.Cut
    Range("D12").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 64
    Range("A72").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E12").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    Range("A85").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F12").Select
    ActiveSheet.Paste
    Range("A11").Select
    Selection.Cut
    Range("D13").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    Range("A73").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E13").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    Range("A84").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F13").Select
    ActiveSheet.Paste
    Range("A2").Select
    Selection.Cut
    Range("D14").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    Range("A97").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E14").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    Range("A100").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F14").Select
    ActiveSheet.Paste
    Range("A1").Select
    Selection.Cut
    Range("D15").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    Range("A98").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E15").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 90
    Range("A99").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F15").Select
    ActiveSheet.Paste
    Range("A4").Select
    Selection.Cut
    Range("D16").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    Range("A78").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E16").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    Range("A83").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F16").Select
    ActiveSheet.Paste
    Range("A3").Select
    Selection.Cut
    Range("D17").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    Range("A79").Select
    Selection.Cut
    ActiveWindow.LargeScroll Down:=-2
    Range("E17").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 72
    Range("A82").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F17").Select
    ActiveSheet.Paste
    Range("A6").Select
    Selection.Cut
    Range("D18").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    Range("A76").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E18").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    Range("A81").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F18").Select
    ActiveSheet.Paste
    Range("A5").Select
    Selection.Cut
    Range("D19").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("A5").Select
    Selection.Cut
    Range("D19").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    Range("A77").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 1
    Range("E19").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 64
    Range("A80").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F19").Select
    ActiveSheet.Paste
    Range("A18").Select
    Selection.Cut
    Range("D20").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    Range("A45").Select
    Selection.Cut
    Range("E20").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    Range("A66").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F20").Select
    ActiveSheet.Paste
    Range("A17").Select
    Selection.Cut
    Range("D21").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    Range("A46").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E21").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A65").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F21").Select
    ActiveSheet.Paste
    Range("A20").Select
    Selection.Cut
    Range("D22").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    Range("A43").Select
    Selection.Cut
    Range("E22").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    Range("A64").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F22").Select
    ActiveSheet.Paste
    Range("A19").Select
    Selection.Cut
    Range("D23").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    Range("A44").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    Range("E23").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A63").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F23").Select
    ActiveSheet.Paste
    Range("A14").Select
    Selection.Cut
    Range("D24").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    Range("A49").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E24").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A62").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F24").Select
    ActiveSheet.Paste
    Range("A13").Select
    Selection.Cut
    Range("D25").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("A13").Select
    Selection.Cut
    Range("D25").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    Range("A50").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E25").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    Range("A61").Select
    Selection.Cut
    ActiveWindow.LargeScroll Down:=-2
    Range("F25").Select
    ActiveSheet.Paste
    Range("A16").Select
    Selection.Cut
    Range("D26").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    Range("A47").Select
    Selection.Cut
    Range("E26").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A60").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F26").Select
    ActiveSheet.Paste
    Range("A15").Select
    Selection.Cut
    Range("D27").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    Range("A48").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("E27").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A59").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F27").Select
    ActiveSheet.Paste
    Range("A26").Select
    Selection.Cut
    Range("D28").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    Range("A37").Select
    Selection.Cut
    Range("E28").Select
    ActiveSheet.Paste
    ActiveWindow.LargeScroll Down:=-1
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 55
    Range("A58").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F28").Select
    ActiveSheet.Paste
    Range("A25").Select
    Selection.Cut
    Range("D29").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    Range("A38").Select
    Selection.Cut
    Range("E29").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A57").Select
    Selection.Cut
    ActiveWindow.LargeScroll Down:=-1
    Range("F29").Select
    ActiveSheet.Paste
    Range("A28").Select
    Selection.Cut
    Range("D30").Select
    ActiveSheet.Paste
    Range("A35").Select
    Selection.Cut
    Range("E30").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A56").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    Range("F30").Select
    ActiveSheet.Paste
    Range("A27").Select
    Selection.Cut
    Range("D31").Select
    ActiveSheet.Paste
    Range("A36").Select
    Selection.Cut
    Range("E31").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    Range("A55").Select
    Selection.Cut
    Range("F31").Select
    ActiveSheet.Paste
    ActiveWindow.LargeScroll Down:=-1
    Range("F1").Select
    ActiveWindow.LargeScroll Down:=1
    Range("F31").Select
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    Range("A22").Select
    Selection.Cut
    Range("D32").Select
    ActiveSheet.Paste
    Range("A41").Select
    Selection.Cut
    Range("E32").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    Range("A54").Select
    Selection.Cut
    Range("F32").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("A54").Select
    Selection.Cut
    Range("F32").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    Range("A21").Select
    Selection.Cut
    Range("D33").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("A21").Select
    Selection.Cut
    Range("D33").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    Range("A42").Select
    Selection.Cut
    Range("E33").Select
    ActiveSheet.Paste
    Range("A53").Select
    Selection.Cut
    Range("F33").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 19
    Range("A24").Select
    Selection.Cut
    Range("D34").Select
    ActiveSheet.Paste
    Range("A39").Select
    Selection.Cut
    Range("E34").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("A39").Select
    Selection.Cut
    Range("E34").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 28
    Range("A52").Select
    Selection.Cut
    Range("F34").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    Range("A23").Select
    Selection.Cut
    Range("D35").Select
    ActiveSheet.Paste
    Range("A40").Select
    Selection.Cut
    Range("E35").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 46
    Range("A51").Select
    Selection.Cut
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 10
    Range("F35").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("A51").Select
    Selection.Cut
    Range("F35").Select
    ActiveSheet.Paste
End Sub

sezuh · Jun 4, 2011

Hi Peter,
Thanks very much for your response and help ,i continued from your suggestion but i tried the code i had "error438,bject doesnt support this property or method" any ideas Why? i dont suppose we can do"Range (A1:A140).select cut range (D1:f35)....?
here is revised macro;

Code:

Sub Macro2()
'
' Macro2 Macro
'
'
    Range("A1:A35").Cut Range("C1")
    ActiveWorkbook.Worksheets("sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("sheet1").Sort.SortFields.Add Key:=Range("A1") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("sheet1").Sort
        .SetRange Range("A1:A5526")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A67").Cut Range("D1")
    Range("A92").Cut Range("E1")
    Range("A105").Cut Range("F1")
    Range("A30").Cut Range("D2")
    Range("A93").Cut Range("E2")
    Range("A104").Cut Range("F2")
    Range("A29").Cut Range("D3")
    Range("A94").Cut Range("E3")
    Range("A103").Cut Range("F3")
    Range("A32").Cut Range("D4")
    Range("A70").Cut Range("E4")
    Range("A91").Cut Range("F4")
    Range("A31").Cut Range("D5")
    Range("A71").Cut Range("E5")
    Range("A90").Cut Range("F5")
    Range("A34").Cut Range("D6")
    Range("A68").Cut Range("E6")
    Range("A89").Cut Range("F6")
    Range("A33").Cut Range("D7")
    Range("A69").Cut Range("E7")
    Range("A88").Cut Range("F7")
    Range("A8").Cut Range("D8")
    Range("A95").Cut Range("E8")
    Range("A102").CutRange ("F8")
    Range("A7").Cut Range("D9")
    Range("A96").Cut Range("E9")
    Range("A101").Cut Range("F9")
    Range("A10").Cut Range("D10")
    Range("A74").Cut Range("E10")
    Range("A87").Cut Range("F10")
    Range("A9").Cut Range("D11")
    Range("A75").Cut Range("E11")
    Range("A86").Cut Range("F11")
    Range("A12").Cut Range("D12")
    Range("A72").Cut Range("E12")
    Range("A85").Cut Range("F12")
    Range("A11").Cut Range("D13")
    Range("A73").Cut Range("E13")
    Range("A84").Cut Range("F13")
    Range("A2").Cut Range("D14")
    Range("A97").Cut Range("E14")
    Range("A100").Cut Range("F14")
    Range("A1").Cut Range("D15")
    Range("A98").Cut Range("E15")
    Range("A99").Cut Range("F15")
    Range("A4").Cut Range("D16")
    Range("A78").Cut Range("E16")
    Range("A83").Cut Range("F16")
    Range("A3").Cut Range("D17")
    Range("A79").Cut Range("E17")
    Range("A82").Cut Range("F17")
    Range("A6").Cut Range("D18")
    Range("A76").Cut Range("E18")
    Range("A81").Cut Range("F18")
    Range("A5").Cut Range("D19")
    Range("A77").Cut Range("E19")
    Range("A80").Cut Range("F19")
    Range("A18").Cut Range("D20")
    Range("A45").Cut Range("E20")
    Range("A66").Cut Range("F20")
    Range("A17").Cut Range("D21")
    Range("A46").Cut Range("E21")
    Range("A65").Cut Range("F21")
    Range("A20").Cut Range("D22")
    Range("A43").Cut Range("E22")
    Range("A64").Cut Range("F22")
    Range("A19").Cut Range("D23")
    Range("A44").Cut Range("E23")
    Range("A63").Cut Range("F23")
    Range("A14").Cut Range("D24")
    Range("A49").Cut Range("E24")
    Range("A62").Cut Range("F24")
    Range("A13").Cut Range("D25")
    Range("A13").Cut Range("D25")
    Range("A50").Cut Range("E25")
    Range("A61").Cut Range("F25")
    Range("A16").Cut Range("D26")
    Range("A47").Cut Range("E26")
    Range("A60").Cut Range("F26")
    Range("A15").Cut Range("D27")
    Range("A48").Cut Range("E27")
    Range("A59").Cut Range("F27")
    Range("A26").Cut Range("D28")
    Range("A37").Cut Range("E28")
    Range("A58").Cut Range("F28")
    Range("A25").Cut Range("D29")
    Range("A38").Cut Range("E29")
    Range("A57").Cut Range("F29")
    Range("A28").Cut Range("D30")
    Range("A35").Cut Range("E30")
    Range("A56").Cut Range("F30")
    Range("A27").Cut Range("D31")
    Range("A36").Cut Range("E31")
    Range("A55").Cut Range("F31")
    Range("F1").Cut Range("F31")
    Range("A22").Cut Range("D32")
    Range("A41").Cut Range("E32")
    Range("A54").Cut Range("F32")
    Range("A54").Cut Range("F32")
    Range("A21").Cut Range("D33")
    Range("A42").Cut Range("E33")
    Range("A53").Cut Range("F33")
    Range("A24").Cut Range("D34")
    Range("A39").Cut Range("E34")
    Range("A52").Cut Range("F34")
    Range("A23").Cut Range("D35")
    Range("A40").Cut Range("E35")
    Range("A51").Select
    Selection.Cut
    Range("F35").Select
    ActiveSheet.Paste
End Sub

thanks
sezuh

VoG · Jun 4, 2011

You were missing a space between Cut and Range on one line. This runs without error for me

Code:

Sub Macro2()
'
' Macro2 Macro
'
'
    Range("A1:A35").Cut Range("C1")
    ActiveWorkbook.Worksheets("sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("sheet1").Sort.SortFields.Add Key:=Range("A1") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("sheet1").Sort
        .SetRange Range("A1:A5526")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A67").Cut Range("D1")
    Range("A92").Cut Range("E1")
    Range("A105").Cut Range("F1")
    Range("A30").Cut Range("D2")
    Range("A93").Cut Range("E2")
    Range("A104").Cut Range("F2")
    Range("A29").Cut Range("D3")
    Range("A94").Cut Range("E3")
    Range("A103").Cut Range("F3")
    Range("A32").Cut Range("D4")
    Range("A70").Cut Range("E4")
    Range("A91").Cut Range("F4")
    Range("A31").Cut Range("D5")
    Range("A71").Cut Range("E5")
    Range("A90").Cut Range("F5")
    Range("A34").Cut Range("D6")
    Range("A68").Cut Range("E6")
    Range("A89").Cut Range("F6")
    Range("A33").Cut Range("D7")
    Range("A69").Cut Range("E7")
    Range("A88").Cut Range("F7")
    Range("A8").Cut Range("D8")
    Range("A95").Cut Range("E8")
    Range("A102").Cut Range("F8")
    Range("A7").Cut Range("D9")
    Range("A96").Cut Range("E9")
    Range("A101").Cut Range("F9")
    Range("A10").Cut Range("D10")
    Range("A74").Cut Range("E10")
    Range("A87").Cut Range("F10")
    Range("A9").Cut Range("D11")
    Range("A75").Cut Range("E11")
    Range("A86").Cut Range("F11")
    Range("A12").Cut Range("D12")
    Range("A72").Cut Range("E12")
    Range("A85").Cut Range("F12")
    Range("A11").Cut Range("D13")
    Range("A73").Cut Range("E13")
    Range("A84").Cut Range("F13")
    Range("A2").Cut Range("D14")
    Range("A97").Cut Range("E14")
    Range("A100").Cut Range("F14")
    Range("A1").Cut Range("D15")
    Range("A98").Cut Range("E15")
    Range("A99").Cut Range("F15")
    Range("A4").Cut Range("D16")
    Range("A78").Cut Range("E16")
    Range("A83").Cut Range("F16")
    Range("A3").Cut Range("D17")
    Range("A79").Cut Range("E17")
    Range("A82").Cut Range("F17")
    Range("A6").Cut Range("D18")
    Range("A76").Cut Range("E18")
    Range("A81").Cut Range("F18")
    Range("A5").Cut Range("D19")
    Range("A77").Cut Range("E19")
    Range("A80").Cut Range("F19")
    Range("A18").Cut Range("D20")
    Range("A45").Cut Range("E20")
    Range("A66").Cut Range("F20")
    Range("A17").Cut Range("D21")
    Range("A46").Cut Range("E21")
    Range("A65").Cut Range("F21")
    Range("A20").Cut Range("D22")
    Range("A43").Cut Range("E22")
    Range("A64").Cut Range("F22")
    Range("A19").Cut Range("D23")
    Range("A44").Cut Range("E23")
    Range("A63").Cut Range("F23")
    Range("A14").Cut Range("D24")
    Range("A49").Cut Range("E24")
    Range("A62").Cut Range("F24")
    Range("A13").Cut Range("D25")
    Range("A13").Cut Range("D25")
    Range("A50").Cut Range("E25")
    Range("A61").Cut Range("F25")
    Range("A16").Cut Range("D26")
    Range("A47").Cut Range("E26")
    Range("A60").Cut Range("F26")
    Range("A15").Cut Range("D27")
    Range("A48").Cut Range("E27")
    Range("A59").Cut Range("F27")
    Range("A26").Cut Range("D28")
    Range("A37").Cut Range("E28")
    Range("A58").Cut Range("F28")
    Range("A25").Cut Range("D29")
    Range("A38").Cut Range("E29")
    Range("A57").Cut Range("F29")
    Range("A28").Cut Range("D30")
    Range("A35").Cut Range("E30")
    Range("A56").Cut Range("F30")
    Range("A27").Cut Range("D31")
    Range("A36").Cut Range("E31")
    Range("A55").Cut Range("F31")
    Range("F1").Cut Range("F31")
    Range("A22").Cut Range("D32")
    Range("A41").Cut Range("E32")
    Range("A54").Cut Range("F32")
    Range("A54").Cut Range("F32")
    Range("A21").Cut Range("D33")
    Range("A42").Cut Range("E33")
    Range("A53").Cut Range("F33")
    Range("A24").Cut Range("D34")
    Range("A39").Cut Range("E34")
    Range("A52").Cut Range("F34")
    Range("A23").Cut Range("D35")
    Range("A40").Cut Range("E35")
    Range("A51").Cut Range("F35")
End Sub

sezuh · Jun 4, 2011

thanks Peter,
Yes it run without error but there are 3 empty cells(F1,D25 and F32)because ther are 3 extra lines in the code .After i remove them it run with no error and correct result.so is that the shortest we can have?
that mean also we can not used with different list,ie; Combin(16,4),am i right?

Code:

Sub Macro2()
'
' Macro2 Macro
'
'
    Range("A1:A35").Cut Range("C1")
    ActiveWorkbook.Worksheets("sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("sheet1").Sort.SortFields.Add Key:=Range("A1") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("sheet1").Sort
        .SetRange Range("A1:A5526")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A67").Cut Range("D1")
    Range("A92").Cut Range("E1")
    Range("A105").Cut Range("F1")
    Range("A30").Cut Range("D2")
    Range("A93").Cut Range("E2")
    Range("A104").Cut Range("F2")
    Range("A29").Cut Range("D3")
    Range("A94").Cut Range("E3")
    Range("A103").Cut Range("F3")
    Range("A32").Cut Range("D4")
    Range("A70").Cut Range("E4")
    Range("A91").Cut Range("F4")
    Range("A31").Cut Range("D5")
    Range("A71").Cut Range("E5")
    Range("A90").Cut Range("F5")
    Range("A34").Cut Range("D6")
    Range("A68").Cut Range("E6")
    Range("A89").Cut Range("F6")
    Range("A33").Cut Range("D7")
    Range("A69").Cut Range("E7")
    Range("A88").Cut Range("F7")
    Range("A8").Cut Range("D8")
    Range("A95").Cut Range("E8")
    Range("A102").Cut Range("F8")
    Range("A7").Cut Range("D9")
    Range("A96").Cut Range("E9")
    Range("A101").Cut Range("F9")
    Range("A10").Cut Range("D10")
    Range("A74").Cut Range("E10")
    Range("A87").Cut Range("F10")
    Range("A9").Cut Range("D11")
    Range("A75").Cut Range("E11")
    Range("A86").Cut Range("F11")
    Range("A12").Cut Range("D12")
    Range("A72").Cut Range("E12")
    Range("A85").Cut Range("F12")
    Range("A11").Cut Range("D13")
    Range("A73").Cut Range("E13")
    Range("A84").Cut Range("F13")
    Range("A2").Cut Range("D14")
    Range("A97").Cut Range("E14")
    Range("A100").Cut Range("F14")
    Range("A1").Cut Range("D15")
    Range("A98").Cut Range("E15")
    Range("A99").Cut Range("F15")
    Range("A4").Cut Range("D16")
    Range("A78").Cut Range("E16")
    Range("A83").Cut Range("F16")
    Range("A3").Cut Range("D17")
    Range("A79").Cut Range("E17")
    Range("A82").Cut Range("F17")
    Range("A6").Cut Range("D18")
    Range("A76").Cut Range("E18")
    Range("A81").Cut Range("F18")
    Range("A5").Cut Range("D19")
    Range("A77").Cut Range("E19")
    Range("A80").Cut Range("F19")
    Range("A18").Cut Range("D20")
    Range("A45").Cut Range("E20")
    Range("A66").Cut Range("F20")
    Range("A17").Cut Range("D21")
    Range("A46").Cut Range("E21")
    Range("A65").Cut Range("F21")
    Range("A20").Cut Range("D22")
    Range("A43").Cut Range("E22")
    Range("A64").Cut Range("F22")
    Range("A19").Cut Range("D23")
    Range("A44").Cut Range("E23")
    Range("A63").Cut Range("F23")
    Range("A14").Cut Range("D24")
    Range("A49").Cut Range("E24")
    Range("A62").Cut Range("F24")
    Range("A13").Cut Range("D25")
    Range("A50").Cut Range("E25")
    Range("A61").Cut Range("F25")
    Range("A16").Cut Range("D26")
    Range("A47").Cut Range("E26")
    Range("A60").Cut Range("F26")
    Range("A15").Cut Range("D27")
    Range("A48").Cut Range("E27")
    Range("A59").Cut Range("F27")
    Range("A26").Cut Range("D28")
    Range("A37").Cut Range("E28")
    Range("A58").Cut Range("F28")
    Range("A25").Cut Range("D29")
    Range("A38").Cut Range("E29")
    Range("A57").Cut Range("F29")
    Range("A28").Cut Range("D30")
    Range("A35").Cut Range("E30")
    Range("A56").Cut Range("F30")
    Range("A27").Cut Range("D31")
    Range("A36").Cut Range("E31")
    Range("A55").Cut Range("F31")
    Range("A22").Cut Range("D32")
    Range("A41").Cut Range("E32")
    Range("A54").Cut Range("F32")
    Range("A21").Cut Range("D33")
    Range("A42").Cut Range("E33")
    Range("A53").Cut Range("F33")
    Range("A24").Cut Range("D34")
    Range("A39").Cut Range("E34")
    Range("A52").Cut Range("F34")
    Range("A23").Cut Range("D35")
    Range("A40").Cut Range("E35")
    Range("A51").Cut Range("F35")
End Sub

anyway thanks for your excelent help.
Regards
sezuh

VoG · Jun 4, 2011

I can't see how to shorten it further as I can't see any particular pattern to the ranges that you are cutting from.

sezuh · Jun 4, 2011

Not to worry Peter,
thanks for all the effort and help,much obliged.

SEZUH

Shorten Recorded Macro?

sezuh

Well-known Member

Excel Facts

VoG

Legend

sezuh

Well-known Member

VoG

Legend

sezuh

Well-known Member

VoG

Legend

sezuh

Well-known Member

Similar threads

Forum statistics

Share this page

Shorten Recorded Macro?

sezuh

Well-known Member

Excel Facts

VoG

Legend

sezuh

Well-known Member

VoG

Legend

sezuh

Well-known Member

VoG

Legend

sezuh

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock