macro too long - what can i edit out of it?

danperrone

New Member
Joined
Jun 8, 2007
Messages
19
here it is...i am not familiar with macros, so i don't know what is expendable and what isn't. can someone tell me what i can delete?

Sub newweekendmacro()
'
' newweekendmacro Macro
' Macro recorded 8/13/2007 by 501457171
'

'
ActiveWindow.SmallScroll Down:=51
Rows("67:84").Select
Selection.Cut
ActiveWindow.SmallScroll Down:=-54
Rows("7:7").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=147
Rows("169:186").Select
Selection.Cut
ActiveWindow.SmallScroll Down:=-147
Rows("37:37").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=63
Rows("91:96").Select
Selection.Cut
ActiveWindow.SmallScroll Down:=-27
Rows("55:55").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=138
Rows("187:204").Select
Selection.Cut
ActiveWindow.SmallScroll Down:=-126
Rows("61:61").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=9
Rows("85:90").Select
Selection.Delete Shift:=xlUp
ActiveWindow.SmallScroll Down:=30
Rows("115:126").Select
Selection.Cut
ActiveWindow.SmallScroll Down:=-15
Rows("91:91").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=33
Rows("127:150").Select
Selection.Cut
ActiveWindow.SmallScroll Down:=-30
Rows("109:109").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=45
Rows("151:186").Select
Selection.Cut
ActiveWindow.SmallScroll Down:=-24
Rows("139:139").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=60
Rows("181:186").Select
Selection.Delete Shift:=xlUp
Range("A190").Select
ActiveWindow.LargeScroll Down:=-1
Range("A155").Select
ActiveWindow.LargeScroll Down:=-1
Range("A120").Select
ActiveWindow.LargeScroll Down:=-1
Range("A85").Select
ActiveWindow.LargeScroll Down:=-1
Range("A50").Select
ActiveWindow.LargeScroll Down:=-1
Range("A:G,I:P,R:W,Y:AA").Select
Range("Y1").Activate
Selection.Delete Shift:=xlToLeft
Columns("A:A").Select
Selection.Copy
Range("D1").Select
ActiveSheet.Paste
Range("E1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-3]*100"
Range("F1").Select
ActiveCell.FormulaR1C1 = "=RC[-3]*100"
Range("E1:F1").Select
Selection.AutoFill Destination:=Range("E1:F197"), Type:=xlFillDefault
Range("E1:F197").Select
ActiveWindow.LargeScroll Down:=-1
Range("E150").Select
ActiveWindow.LargeScroll Down:=-1
Range("E115").Select
ActiveWindow.LargeScroll Down:=-1
Range("E80").Select
ActiveWindow.LargeScroll Down:=-1
Range("E45").Select
ActiveWindow.LargeScroll Down:=-1
Range("E10").Select
ActiveWindow.LargeScroll Down:=-1
Columns("E:F").Select
Selection.NumberFormat = "0"
Columns("A:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = True
Rows("1:1").Select
Range("D1").Activate
Selection.Insert Shift:=xlDown
Range("G2").Select
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R2C4:R6C4)"
Range("G2").Select
Selection.AutoFill Destination:=Range("G2:G6"), Type:=xlFillDefault
Range("G2:G6").Select
Range("G6").Select
Selection.Copy
Range("G8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R8C4:R12C4)"
Range("G8").Select
Selection.AutoFill Destination:=Range("G8:G12"), Type:=xlFillDefault
Range("G8:G12").Select
Range("G12").Select
Selection.Copy
Range("G14").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R14C4:R18C4)"
Range("G14").Select
Selection.AutoFill Destination:=Range("G14:G18"), Type:=xlFillDefault
Range("G14:G18").Select
Range("G18").Select
Selection.Copy
Range("G20").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R20C4:R24C4)"
Range("G20").Select
Selection.AutoFill Destination:=Range("G20:G24"), Type:=xlFillDefault
Range("G20:G24").Select
Range("G24").Select
Selection.Copy
Range("G26").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R26C4:R30C4)"
Range("G26").Select
Selection.AutoFill Destination:=Range("G26:G30"), Type:=xlFillDefault
Range("G26:G30").Select
Range("G30").Select
Selection.Copy
Range("G32").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=3
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R32C4:R36C4)"
Range("G32").Select
Selection.AutoFill Destination:=Range("G32:G36"), Type:=xlFillDefault
Range("G32:G36").Select
ActiveWindow.SmallScroll Down:=30
Range("G36").Select
Selection.Copy
Range("G38").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R38C4:R42C4)"
Range("G38").Select
Selection.AutoFill Destination:=Range("G38:G42"), Type:=xlFillDefault
Range("G38:G42").Select
Range("G42").Select
Selection.Copy
Range("G44").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R44C4:R48C4)"
Range("G44").Select
Selection.AutoFill Destination:=Range("G44:G48"), Type:=xlFillDefault
Range("G44:G48").Select
Range("G48").Select
Selection.Copy
Range("G50").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R50C4:R54C4)"
Range("G50").Select
Selection.AutoFill Destination:=Range("G50:G54"), Type:=xlFillDefault
Range("G50:G54").Select
Range("G54").Select
Selection.Copy
Range("G56").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R56C4:R60C4)"
Range("G56").Select
Selection.AutoFill Destination:=Range("G56:G60"), Type:=xlFillDefault
Range("G56:G60").Select
Range("G60").Select
Selection.Copy
Range("G62").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R62C4:R66C4)"
Range("G62").Select
Selection.AutoFill Destination:=Range("G62:G66"), Type:=xlFillDefault
Range("G62:G66").Select
ActiveWindow.SmallScroll Down:=27
Range("G66").Select
Selection.Copy
Range("G68").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R68C4:R72C4)"
Range("G69").Select
ActiveWindow.SmallScroll Down:=-3
Range("G68").Select
Selection.AutoFill Destination:=Range("G68:G72"), Type:=xlFillDefault
Range("G68:G72").Select
Range("G72").Select
Selection.Copy
Range("G74").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R74C4:R78C4)"
Range("G74").Select
Selection.AutoFill Destination:=Range("G74:G78"), Type:=xlFillDefault
Range("G74:G78").Select
Range("G78").Select
Selection.Copy
Range("G80").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R80C4:R84C4)"
Range("G80").Select
Selection.AutoFill Destination:=Range("G80:G84"), Type:=xlFillDefault
Range("G80:G84").Select
ActiveWindow.SmallScroll Down:=24
Range("G84").Select
Selection.Copy
Range("G86").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R86C4:R90C4)"
Range("G86").Select
Selection.AutoFill Destination:=Range("G86:G90"), Type:=xlFillDefault
Range("G86:G90").Select
Range("G90").Select
Selection.Copy
Range("G92").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R92C4:R96C4)"
Range("G92").Select
Selection.AutoFill Destination:=Range("G92:G96"), Type:=xlFillDefault
Range("G92:G96").Select
Range("G96").Select
Selection.Copy
Range("G98").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R98C4:R[4]C4)"
Range("G98").Select
Selection.AutoFill Destination:=Range("G98:G102"), Type:=xlFillDefault
Range("G98:G102").Select
Range("G102").Select
Selection.Copy
Range("G104").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R104C4:R[4]C4)"
Range("G104").Select
Selection.AutoFill Destination:=Range("G104:G108"), Type:=xlFillDefault
Range("G104:G108").Select
Range("G108").Select
Selection.Copy
Range("G110").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R110C4:R[4]C4)"
Range("G110").Select
Selection.AutoFill Destination:=Range("G110:G114"), Type:=xlFillDefault
Range("G110:G114").Select
ActiveWindow.SmallScroll Down:=24
Range("G114").Select
Selection.Copy
Range("G116").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R116C4:R[4]C4)"
Range("G116").Select
Selection.AutoFill Destination:=Range("G116:G120"), Type:=xlFillDefault
Range("G116:G120").Select
Range("G120").Select
Selection.Copy
Range("G122").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R122C4:R[4]C4)"
Range("G122").Select
Selection.AutoFill Destination:=Range("G122:G125"), Type:=xlFillDefault
Range("G122:G125").Select
Range("G114").Select
ActiveWindow.SmallScroll Down:=-24
Range("G98").Select
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R98C4:R102C4)"
Range("G98").Select
Selection.AutoFill Destination:=Range("G98:G102"), Type:=xlFillDefault
Range("G98:G102").Select
Range("G102").Select
Selection.Copy
Range("G104").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R104C4:R108C4)"
Range("G104").Select
Selection.AutoFill Destination:=Range("G104:G108"), Type:=xlFillDefault
Range("G104:G108").Select
Range("G108").Select
Selection.Copy
Range("G110").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R110C4:R114C4)"
Range("G110").Select
Selection.AutoFill Destination:=Range("G110:G114"), Type:=xlFillDefault
Range("G110:G114").Select
ActiveWindow.SmallScroll Down:=21
Range("G114").Select
Selection.Copy
Range("G116").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R116C4:R120C4)"
Range("G116").Select
Selection.AutoFill Destination:=Range("G116:G120"), Type:=xlFillDefault
Range("G116:G120").Select
Range("G120").Select
Selection.Copy
Range("G122").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R122C4:R126C4)"
Range("G122").Select
Selection.AutoFill Destination:=Range("G122:G126"), Type:=xlFillDefault
Range("G122:G126").Select
Range("G126").Select
Selection.Copy
Range("G128").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R128C4:R132C4)"
Range("G128").Select
Selection.AutoFill Destination:=Range("G128:G132"), Type:=xlFillDefault
Range("G128:G132").Select
Range("G134").Select
Range("G132").Select
Selection.Copy
Range("G134").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R134C4:R138C4)"
Range("G134").Select
Selection.AutoFill Destination:=Range("G134:G138"), Type:=xlFillDefault
Range("G134:G138").Select
Range("G138").Select
Selection.Copy
Range("G140").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R134C4:R140C4)"
Range("G140").Select
Selection.AutoFill Destination:=Range("G140:G144"), Type:=xlFillDefault
Range("G140:G144").Select
Range("G140").Select
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R140C4:R144C4)"
Range("G140").Select
Selection.AutoFill Destination:=Range("G140:G144"), Type:=xlFillDefault
Range("G140:G144").Select
Range("G144").Select
Selection.Copy
Range("G146").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R146C4:R150C4)"
Range("G146").Select
Selection.AutoFill Destination:=Range("G146:G150"), Type:=xlFillDefault
Range("G146:G150").Select
Range("G150").Select
Selection.Copy
Range("G152").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R152C4:R156C4)"
Range("G153").Select
ActiveWindow.SmallScroll Down:=18
Range("G152").Select
Selection.AutoFill Destination:=Range("G152:G156"), Type:=xlFillDefault
Range("G152:G156").Select
Range("G156").Select
Selection.Copy
Range("G158").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R158C4:R162C4)"
Range("G158").Select
Selection.AutoFill Destination:=Range("G158:G162"), Type:=xlFillDefault
Range("G158:G162").Select
Range("G162").Select
Selection.Copy
Range("G164").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R164C4:R168C4)"
Range("G164").Select
Selection.AutoFill Destination:=Range("G164:G168"), Type:=xlFillDefault
Range("G164:G168").Select
Range("G168").Select
Selection.Copy
Range("G170").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R170C4:R174C4)"
Range("G170").Select
Selection.AutoFill Destination:=Range("G170:G174"), Type:=xlFillDefault
Range("G170:G174").Select
Range("G174").Select
ActiveWindow.SmallScroll Down:=21
Selection.Copy
Range("G176").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R176C4:R180C4)"
Range("G176").Select
Selection.AutoFill Destination:=Range("G176:G180"), Type:=xlFillDefault
Range("G176:G180").Select
Range("G180").Select
Selection.Copy
Range("G182").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R182C4:R186C4)"
Range("G182").Select
Selection.AutoFill Destination:=Range("G182:G186"), Type:=xlFillDefault
Range("G182:G186").Select
Range("G186").Select
Selection.Copy
Range("G188").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R188C4:R192C4)"
Range("G188").Select
Selection.AutoFill Destination:=Range("G188:G192"), Type:=xlFillDefault
Range("G188:G192").Select
Range("G192").Select
Selection.Copy
Range("G194").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RANK(RC[-3],R194C4:R198C4)"
Range("G194").Select
Selection.AutoFill Destination:=Range("G194:G198"), Type:=xlFillDefault
Range("G194:G198").Select
Range("D194").Select
ActiveWindow.LargeScroll Down:=-1
Range("D159").Select
ActiveWindow.LargeScroll Down:=-1
Range("D124").Select
ActiveWindow.LargeScroll Down:=-1
Range("D89").Select
ActiveWindow.LargeScroll Down:=-1
Range("D54").Select
ActiveWindow.LargeScroll Down:=-1
Range("H2").Select
ActiveCell.FormulaR1C1 = "=IF(AND(-300<RC[-2],RC[-2]<0),""down"",""up"")"
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H198"), Type:=xlFillDefault
Range("H2:H198").Select
Range("I2").Select
Sheets("Sheet3").Select
Sheets.Add
Sheets("Sheet4").Select
Sheets.Add
Sheets("Sheet5").Select
Sheets.Add
Sheets("Sheet3").Select
Sheets("Sheet3").Move Before:=Sheets(3)
Sheets("Sheet4").Select
Sheets("Sheet4").Move Before:=Sheets(4)
Sheets("Sheet5").Select
Sheets("Sheet5").Move Before:=Sheets(5)
Sheets("Sheet1").Select
Cells.Select
Range("D1").Activate
Selection.Copy
Sheets("Sheet2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Columns("A:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = True
Sheets("Sheet1").Select
Range("F7").Select
ActiveWindow.SmallScroll Down:=-6
Sheets("Sheet1").Select
ActiveWindow.SmallScroll Down:=-3
Range("F34").Select
ActiveWindow.SmallScroll Down:=30
Range("F62").Select
ActiveWindow.SmallScroll Down:=24
Rows("62:198").Select
Range("D62").Activate
Application.CutCopyMode = False
Selection.Cut
Sheets("Sheet3").Select
ActiveWindow.SmallScroll Down:=-9
ActiveSheet.Paste
Columns("A:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll Down:=-3
Range("F32").Select
ActiveWindow.SmallScroll Down:=27
Range("F51").Select
ActiveWindow.SmallScroll Down:=15
Range("F68").Select
ActiveWindow.SmallScroll Down:=15
Rows("73:137").Select
Range("D73").Activate
Selection.Cut
Sheets("Sheet5").Select
ActiveSheet.Paste
Columns("A:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = True
Sheets("Sheet3").Select
ActiveWindow.SmallScroll Down:=-90
Cells.Select
Range("D1").Activate
Selection.Copy
Sheets("Sheet4").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Columns("A:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = True
Sheets("Sheet5").Select
Cells.Select
Range("D1").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("A:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = True
Rows("1:1").Select
Range("D1").Activate
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Sheets("Sheet4").Select
Rows("1:1").Select
Range("D1").Activate
Selection.Insert Shift:=xlDown
Sheets("Sheet2").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "3a3a"
Range("D1").Select
ActiveCell.FormulaR1C1 = "m0003a3a"
Range("E1").Select
ActiveCell.FormulaR1C1 = "mshare3a3a"
Range("F1").Select
ActiveCell.FormulaR1C1 = "mchg3a3a"
Range("G1").Select
ActiveCell.FormulaR1C1 = "mrank3a3a"
Range("H1").Select
ActiveCell.FormulaR1C1 = "m+-3a3a"
Range("D1:H1").Select
Selection.Copy
Range("I1").Select
ActiveSheet.Paste
Range("N1").Select
ActiveSheet.Paste
Range("S1").Select
ActiveSheet.Paste
Range("I1:M1").Select
Selection.Replace What:="m", Replacement:="c", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("N1:R1").Select
Selection.Replace What:="m", Replacement:="f", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("S1:W1").Select
Selection.Replace What:="m", Replacement:="h", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("D1:W1").Select
Application.CutCopyMode = False
Selection.Copy
Range("X1").Select
ActiveSheet.Paste
Selection.Replace What:="3a3a", Replacement:="3a", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("AR1").Select
ActiveSheet.Paste
Selection.Replace What:="3a3a", Replacement:="4a", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("BL1").Select
ActiveSheet.Paste
Selection.Replace What:="3a3a", Replacement:="5a", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("CF1").Select
ActiveSheet.Paste
Selection.Replace What:="3a3a", Replacement:="6a2a", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("CZ1").Select
ActiveSheet.Paste
Selection.Replace What:="3a3a", Replacement:="8p11p", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("DT1").Select
ActiveSheet.Paste
Selection.Replace What:="3a3a", Replacement:="8p", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("EN1").Select
ActiveSheet.Paste
Selection.Replace What:="3a3a", Replacement:="9p", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("FH1").Select
ActiveSheet.Paste
Selection.Replace What:="3a3a", Replacement:="10p", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("GB1").Select
ActiveSheet.Paste
Selection.Replace What:="3a3a", Replacement:="11p2a", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("D3:H3").Select
Application.CutCopyMode = False
Selection.Copy
Range("I2").Select
ActiveSheet.Paste
Range("D4:H4").Select
Application.CutCopyMode = False
Selection.Copy
Range("N2").Select
ActiveSheet.Paste
Range("D5:H5").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("S2").Select
ActiveSheet.Paste
Range("D8:H8").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Selection.End(xlToRight).Select
Range("D2").Select
Selection.End(xlToRight).Select
Range("X2").Select
ActiveSheet.Paste
Range("D9:H9").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("AC2").Select
ActiveSheet.Paste
ActiveCell.SpecialCells(xlLastCell).Select
Range("D341").Select
ActiveWindow.LargeScroll Down:=-1
Range("D306").Select
ActiveWindow.LargeScroll Down:=-1
Range("D271").Select
ActiveWindow.LargeScroll Down:=-1
Range("D236").Select
ActiveWindow.LargeScroll Down:=-1
Range("D201").Select
ActiveWindow.LargeScroll Down:=-1
Range("D166").Select
ActiveWindow.LargeScroll Down:=-1
Range("D131").Select
ActiveWindow.LargeScroll Down:=-1
Range("D96").Select
ActiveWindow.LargeScroll Down:=-1
Range("D61").Select
ActiveWindow.LargeScroll Down:=-1
Range("D10:H10").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("AH2").Select
ActiveSheet.Paste
Range("D11:H11").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("AM2").Select
ActiveSheet.Paste
Range("D14:H14").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("AR2").Select
ActiveSheet.Paste
Range("D15:H15").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("AW2").Select
ActiveSheet.Paste
Range("D16:H16").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("BB2").Select
ActiveSheet.Paste
Range("D17:H17").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("BG2").Select
ActiveSheet.Paste
Range("D20:H20").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("BL2").Select
ActiveSheet.Paste
Range("D21:H21").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("BQ2").Select
ActiveSheet.Paste
Range("D22:H22").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("BV2").Select
ActiveSheet.Paste
Range("D23:H23").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("CA2").Select
ActiveSheet.Paste
Range("D26:H26").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("CF2").Select
ActiveSheet.Paste
Range("D27:H27").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("CK2").Select
ActiveSheet.Paste
Range("D28:H28").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("CP2").Select
ActiveSheet.Paste
Range("D29:H29").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("CU2").Select
ActiveSheet.Paste
Range("D32:H32").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("CZ2").Select
ActiveSheet.Paste
ActiveCell.SpecialCells(xlLastCell).Select
Range("D341").Select
ActiveWindow.LargeScroll Down:=-1
Range("D306").Select
ActiveWindow.LargeScroll Down:=-1
Range("D271").Select
ActiveWindow.LargeScroll Down:=-1
Range("D236").Select
ActiveWindow.LargeScroll Down:=-1
Range("D201").Select
ActiveWindow.LargeScroll Down:=-1
Range("D166").Select
ActiveWindow.LargeScroll Down:=-1
Range("D131").Select
ActiveWindow.LargeScroll Down:=-1
Range("D96").Select
ActiveWindow.LargeScroll Down:=-1
Range("D61").Select
ActiveWindow.LargeScroll Down:=-1
Range("D33:H33").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("DE2").Select
ActiveSheet.Paste
Range("D34:H34").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("DJ2").Select
ActiveSheet.Paste
Range("D35:H35").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("DO2").Select
ActiveSheet.Paste
Range("D38:H38").Select
Application.CutCopyMode = False
Selection.Copy
Range("D38").Select
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("DT2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D39:H39").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("DY2").Select
ActiveSheet.Paste
Range("D3").Select
ActiveWindow.LargeScroll Down:=1
Range("D40:H40").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("ED2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D41:H41").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("EI2").Select
ActiveSheet.Paste
Range("D3").Select
ActiveWindow.LargeScroll Down:=1
Range("D44:H44").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("EN2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D45:H45").Select
Application.CutCopyMode = False
Selection.Copy
Range("D45").Select
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("ES2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D46:H46").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("EX2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D47:H47").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("FC2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D50:H50").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("FH2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D51:H51").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("FM2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D52:H52").Select
Application.CutCopyMode = False
Selection.Copy
Range("D51").Select
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("FR2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D53:H53").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("FW2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D56:H56").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("GB2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D57:H57").Select
Application.CutCopyMode = False
Selection.Copy
Range("D57").Select
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("GG2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D37").Select
ActiveWindow.LargeScroll Down:=1
Range("D58:H58").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D23").Select
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("GL2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D59:H59").Select
Application.CutCopyMode = False
Selection.Copy
Range("D58").Select
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("GQ2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D62:H62").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("GV2").Select
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Rows("61:198").Select
Range("D198").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("D198").Select
ActiveWindow.LargeScroll Down:=-1
Range("D163").Select
ActiveWindow.LargeScroll Down:=-1
Range("D128").Select
ActiveWindow.LargeScroll Down:=-1
Range("D93").Select
ActiveWindow.LargeScroll Down:=-1
Range("D58").Select
ActiveWindow.LargeScroll Down:=-1
Range("EO1").Select
Selection.End(xlToRight).Select
Range("D1:W1").Select
Selection.Copy
Sheets("Sheet4").Select
Range("D1").Select
ActiveSheet.Paste
Selection.Replace What:="3a3a", Replacement:="11p", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("F1").Select
Selection.End(xlToRight).Select
Range("D1:W1").Select
Range("W1").Activate
Application.CutCopyMode = False
Selection.Copy
Range("X1").Select
ActiveSheet.Paste
Selection.Replace What:="3a3a", Replacement:="12m", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="11p", Replacement:="12m", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("AR1").Select
ActiveSheet.Paste
Selection.Replace What:="11p", Replacement:="1a", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("BL1").Select
ActiveSheet.Paste
Selection.Replace What:="11p", Replacement:="7p2a", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("CF1").Select
ActiveSheet.Paste
Selection.Replace What:="11p", Replacement:="6a8a", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("CZ1").Select
ActiveSheet.Paste
Selection.Replace What:="11p", Replacement:="6a", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("DT1").Select
ActiveSheet.Paste
Selection.Replace What:="11p", Replacement:="7a", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("EN1").Select
ActiveSheet.Paste
Selection.Replace What:="11p", Replacement:="8a12n", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("FH1").Select
ActiveSheet.Paste
Selection.Replace What:="11p", Replacement:="8a", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("GB1").Select
ActiveSheet.Paste
Selection.Replace What:="11p", Replacement:="9a", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("GV1").Select
ActiveSheet.Paste
Selection.Replace What:="11p", Replacement:="10a", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("HP1").Select
ActiveSheet.Paste
Selection.Replace What:="11p", Replacement:="11a", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("D3:H3").Select
Application.CutCopyMode = False
Selection.Copy
Range("I2").Select
ActiveSheet.Paste
Range("D4:H4").Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlUp).Select
Range("N2").Select
ActiveSheet.Paste
Range("D5:H5").Select
Application.CutCopyMode = False
Selection.Copy
Range("S2").Select
ActiveSheet.Paste
Range("D8:H8").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("X2").Select
ActiveSheet.Paste
Range("D9:H9").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("AC2").Select
ActiveSheet.Paste
Range("D10:H10").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("AH2").Select
ActiveSheet.Paste
Range("D11:H11").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("AM2").Select
ActiveSheet.Paste
Range("D14:H14").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("AR2").Select
ActiveSheet.Paste
Range("D15:H15").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("AW2").Select
ActiveSheet.Paste
Range("D16:H16").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("BB2").Select
ActiveSheet.Paste
Range("D17:H17").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("BG2").Select
ActiveSheet.Paste
Range("D20:H20").Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlUp).Select
Range("D2").Select
Selection.End(xlToRight).Select
Range("BL2").Select
ActiveSheet.Paste
Range("D21:H21").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("BQ2").Select
ActiveSheet.Paste
Range("D22:H22").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("BV2").Select
ActiveSheet.Paste
Range("D23:H23").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("CA2").Select
ActiveSheet.Paste
Range("D26:H26").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("CF2").Select
ActiveSheet.Paste
Range("D27:H27").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("CK2").Select
ActiveSheet.Paste
Range("D28:H28").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("CP2").Select
ActiveSheet.Paste
Range("D29:H29").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("CU2").Select
ActiveSheet.Paste
Range("D32:H32").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("CZ2").Select
ActiveSheet.Paste
Range("D33:H33").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("DE2").Select
ActiveSheet.Paste
Range("D34:H34").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("DJ2").Select
ActiveSheet.Paste
Range("D35:H35").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("DO2").Select
ActiveSheet.Paste
Range("D38:H38").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("DT2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D39:H39").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("DY2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D40:H40").Select
Application.CutCopyMode = False
Selection.Copy
Range("D40").Select
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("ED2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D41:H41").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("EI2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D44:H44").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Application.CutCopyMode = False
ActiveWindow.LargeScroll Down:=1
Range("D44:H44").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("EN2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D45:H45").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("ES2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D46:H46").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("EX2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D47:H47").Select
Application.CutCopyMode = False
Selection.Copy
Range("D47").Select
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("FC2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D50:H50").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("FH2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D51:H51").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D3").Select
Selection.End(xlToRight).Select
Range("D2").Select
Selection.End(xlToRight).Select
Range("FM2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D52:H52").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("FR2").Select
ActiveSheet.Paste
ActiveWindow.LargeScroll Down:=1
Range("FR37").Select
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D53:H53").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("FW2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D56:H56").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("GB2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D57:H57").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("GG2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D58:H58").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("GL2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D59:H59").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("GQ2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D62:H62").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("GV2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D63:H63").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("HA2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D64:H64").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("HF2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D65:H65").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("HK2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D68:H68").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("HP2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D69:H69").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("HU2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D37").Select
ActiveWindow.LargeScroll Down:=1
Range("D70:H70").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D35").Select
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("HZ2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D37").Select
ActiveWindow.LargeScroll Down:=1
Range("D71:H71").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D36").Select
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("IE2").Select
ActiveSheet.Paste
Range("D2").Select
Sheets("Sheet6").Select
Range("D1").Select
Sheets("Sheet4").Select
ActiveWindow.SmallScroll Down:=-12
Range("D1:W1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet6").Select
ActiveSheet.Paste
Selection.Replace What:="11p", Replacement:="12n6p", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Application.CutCopyMode = False
Selection.Copy
Range("X1").Select
ActiveSheet.Paste
Selection.Replace What:="12n6p", Replacement:="12n", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("AR1").Select
ActiveSheet.Paste
Selection.Replace What:="12n6p", Replacement:="1p", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("BL1").Select
ActiveSheet.Paste
Selection.Replace What:="12n6p", Replacement:="2p", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("CF1").Select
ActiveSheet.Paste
Selection.Replace What:="12n6p", Replacement:="3p", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("CZ1").Select
ActiveSheet.Paste
Selection.Replace What:="12n6p", Replacement:="4p", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("DT1").Select
ActiveSheet.Paste
Selection.Replace What:="12n6p", Replacement:="5p", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("EN1").Select
ActiveSheet.Paste
Selection.Replace What:="12n6p", Replacement:="6p8p", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("FH1").Select
ActiveSheet.Paste
Selection.Replace What:="12n6p", Replacement:="6p", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("GB1").Select
ActiveSheet.Paste
Selection.Replace What:="12n6p", Replacement:="7p", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("GV1").Select
ActiveSheet.Paste
Selection.Replace What:="12n6p", Replacement:="2a", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("D1").Select
Sheets("Sheet4").Select
Range("D1").Select
Sheets("Sheet6").Select
Columns("E:F").Select
Application.CutCopyMode = False
Selection.NumberFormat = "0"
Range("D3:H3").Select
Selection.Copy
Range("I2").Select
ActiveSheet.Paste
Range("D4:H4").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("N2").Select
ActiveSheet.Paste
Range("D5:H5").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("S2").Select
ActiveSheet.Paste
Range("D8:H8").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("X2").Select
ActiveSheet.Paste
Range("D9:H9").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("AC2").Select
ActiveSheet.Paste
Range("D10:H10").Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlUp).Select
Range("D2").Select
Selection.End(xlToRight).Select
Range("AH2").Select
ActiveSheet.Paste
Range("D11:H11").Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlUp).Select
Range("D2").Select
Selection.End(xlToRight).Select
Range("AM2").Select
ActiveSheet.Paste
Range("D14:H14").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("AR2").Select
ActiveSheet.Paste
Range("D15:H15").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("AW2").Select
ActiveSheet.Paste
Range("D16:H16").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("BB2").Select
ActiveSheet.Paste
Range("D17:H17").Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlUp).Select
Range("D2").Select
Selection.End(xlToRight).Select
Range("BG2").Select
ActiveSheet.Paste
Range("D20:H20").Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlUp).Select
Range("D2").Select
Selection.End(xlToRight).Select
Range("BL2").Select
ActiveSheet.Paste
Range("D21:H21").Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlUp).Select
Range("E2").Select
Selection.End(xlToRight).Select
Range("BQ2").Select
ActiveSheet.Paste
Range("D22:H22").Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlUp).Select
Range("D2").Select
Selection.End(xlToRight).Select
Range("BV2").Select
ActiveSheet.Paste
Range("D23:H23").Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlUp).Select
Range("D2").Select
Selection.End(xlToRight).Select
Range("CA2").Select
ActiveSheet.Paste
Range("D26:H26").Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlUp).Select
Range("D2").Select
Selection.End(xlToRight).Select
Range("CF2").Select
ActiveSheet.Paste
Range("D27:H27").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Selection.End(xlUp).Select
Range("D2").Select
Selection.End(xlToRight).Select
Range("CK2").Select
ActiveSheet.Paste
Range("D28:H28").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("CP2").Select
ActiveSheet.Paste
Range("D29:H29").Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlUp).Select
Range("D2").Select
Selection.End(xlToRight).Select
Range("CU2").Select
ActiveSheet.Paste
Range("D32:H32").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("CZ2").Select
ActiveSheet.Paste
Range("D33:H33").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2").Select
Selection.End(xlToRight).Select
Range("DE2").Select
ActiveSheet.Paste
Range("D34:H34").Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlUp).Select
Range("D2").Select
Selection.End(xlToRight).Select
Range("DJ2").Select
ActiveSheet.Paste
Range("D35:H35").Select
Application.CutCopyMode = False
Selection.Copy
Selection.End(xlUp).Select
Range("D2").Select
Selection.End(xlToRight).Select
Range("DO2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D38:H38").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("DT2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D39:H39").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("DY2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D40:H40").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("ED2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D41:H41").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("EI2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D44:H44").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("EN2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D45:H45").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("ES2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D46:H46").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("EX2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D47:H47").Select
Application.CutCopyMode = False
Selection.Copy
Range("D47").Select
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("FC2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D50:H50").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("FH2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D51:H51").Select
Application.CutCopyMode = False
Selection.Copy
Range("D51").Select
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("FM2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D52:H52").Select
Application.CutCopyMode = False
Selection.Copy
Range("D52").Select
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("FR2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D53:H53").Select
Application.CutCopyMode = False
Selection.Copy
Range("D53").Select
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("FW2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D56:H56").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("GB2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D57:H57").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("GG2").Select
ActiveSheet.Paste
Range("D3").Select
ActiveWindow.LargeScroll Down:=1
Range("D58:H58").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("GL2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D59:H59").Select
Application.CutCopyMode = False
Selection.Copy
Range("D59").Select
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("GQ2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D62:H62").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("GV2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D63:H63").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("HA2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D64:H64").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("HF2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D65:H65").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
Selection.End(xlToRight).Select
Range("HK2").Select
ActiveSheet.Paste
Range("D2").Select
ActiveWindow.LargeScroll Down:=1
Range("D37").Select
ActiveWindow.LargeScroll Down:=-1
Range("D2").Select
End Sub
 

Some videos you may like

Excel Facts

Why does 9 mean SUM in SUBTOTAL?
It is because Sum is the 9th alphabetically in Average, Count, CountA, Max, Min, Product, StDev.S, StDev.P, Sum, VAR.S, VAR.P.

Norie

Well-known Member
Joined
Apr 28, 2004
Messages
76,218
Office Version
  1. 365
Platform
  1. Windows
I assume you recorded this macro?

If so then when recording everything you do will be picked up.

You almost always need to adapt the code.


For a start you can probably remove every bit of code with scrolling.

eg
Code:
ActiveWindow.LargeScroll Down:=-1
You could probably get rid of all the selecting too.

eg
Code:
Range("E1").Select 
Application.CutCopyMode = False 
ActiveCell.FormulaR1C1 = "=RC[-3]*100"
Can be replaced with this.
Code:
Range("E1").FormulaR1C1 = "=RC[-3]*100"
And lastly, why all the cutting/inserting at the start?:eek:
 

danperrone

New Member
Joined
Jun 8, 2007
Messages
19
all that cutting and inserting is for rearranging data and stuff...i cut and paste one big thing of data and then have to rearrange it in a certain order...all this is for a complecated mail merge i put together to insert data directly into a word document...it sucks!
 

Lewiy

Well-known Member
Joined
Jan 5, 2007
Messages
4,284
That is an enourmous amount of code and there's a huge volume of it which can be changed. As a starting point, instead of using:
Code:
Range("A1").Select
Selection.Copy
Use this:
Code:
Range("A1").Copy
Try to avoid using Select and Activate commands as they will slow your code down significantly. Just making that change will cut out most of your code. Also I notice that there are several sections where you have a number of selections one after the other, e.g:
Code:
Range("A190").Select 
ActiveWindow.LargeScroll Down:=-1 
Range("A155").Select 
ActiveWindow.LargeScroll Down:=-1 
Range("A120").Select 
ActiveWindow.LargeScroll Down:=-1 
Range("A85").Select 
ActiveWindow.LargeScroll Down:=-1 
Range("A50").Select 
ActiveWindow.LargeScroll Down:=-1

You don't need all these selections at all and you can scrap every line which is just scrolling the screen because you really don't need it.

Hope that's a starting point for you, see how you get on. :)
 

Norie

Well-known Member
Joined
Apr 28, 2004
Messages
76,218
Office Version
  1. 365
Platform
  1. Windows

ADVERTISEMENT

Well, did you try any of my suggestions?

PS I've also just noticed you seem to be using Find and Replace for single cells in parts of the code.:eek:

I really don't think that's necessary.
 

danperrone

New Member
Joined
Jun 8, 2007
Messages
19

ADVERTISEMENT

hmm, now i run into a problem here...maybe i deleted too much (says object doesn't support this method or object...huh?)

Rows("67:84").Cut
Rows("7:7").Insert Shift:=xlDown
Rows("169:186").Cut
Rows("37:37").Insert Shift:=xlDown
Rows("91:96").Cut
Rows("55:55").Insert Shift:=xlDown
Rows("187:204").Cut
Rows("61:61").Insert Shift:=xlDown
Rows("85:90").Delete Shift:=xlUp
Rows("115:126").Cut
Rows("91:91").Insert Shift:=xlDown
Rows("127:150").Cut
Rows("109:109").Insert Shift:=xlDown
Rows("151:186").Cut
Rows("139:139").Insert Shift:=xlDown
Rows("181:186").Delete Shift:=xlUp
Range("A190").Select
Range("A155").Select
Range("A120").Select
Range("A85").Select
Range("A50").Select
Range("A:G,I:P,R:W,Y:AA").Select
Range("Y1").Activate
Selection.Delete Shift:=xlToLeft
Columns("A:A").Copy
Range("D1").Paste
 

Scott Huish

MrExcel MVP
Joined
Mar 17, 2004
Messages
19,958
Office Version
  1. 365
  2. 2010
Platform
  1. Windows
I've eliminated what appear to be unnecessary selects and you can't use Paste with a Range object, you need to use PasteSpecial or specify it as the destination in the Copy command:


Code:
Rows("67:84").Cut
Rows("7:7").Insert Shift:=xlDown
Rows("169:186").Cut
Rows("37:37").Insert Shift:=xlDown
Rows("91:96").Cut
Rows("55:55").Insert Shift:=xlDown
Rows("187:204").Cut
Rows("61:61").Insert Shift:=xlDown
Rows("85:90").Delete Shift:=xlUp
Rows("115:126").Cut
Rows("91:91").Insert Shift:=xlDown
Rows("127:150").Cut
Rows("109:109").Insert Shift:=xlDown
Rows("151:186").Cut
Rows("139:139").Insert Shift:=xlDown
Rows("181:186").Delete Shift:=xlUp
Range("Y1").Delete Shift:=xlToLeft
Columns("A:A").Copy Range("D1")
 

Scott Huish

MrExcel MVP
Joined
Mar 17, 2004
Messages
19,958
Office Version
  1. 365
  2. 2010
Platform
  1. Windows
It will error on this line:

Range("D1").Paste

as I explained above.
 

Watch MrExcel Video

Forum statistics

Threads
1,122,469
Messages
5,596,315
Members
414,053
Latest member
Dual Showman

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top