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

D

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
 

Excel Facts

Does the VLOOKUP table have to be sorted?
No! when you are using an exact match, the VLOOKUP table can be in any order. Best-selling items at the top is actually the best.
Sort by date Sort by votes
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:
 
Upvote 0
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!
 
Upvote 0
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. :)
 
Upvote 0
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.
 
Upvote 0
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
 
Upvote 0
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")
 
Upvote 0
It will error on this line:

Range("D1").Paste

as I explained above.
 
Upvote 0
You must log in or register to reply here.

Similar threads

P
  • Question
Help with Vba Code
Replies
3
Views
142
Coyotex3
C
G
  • Question
How can i extract the correct leave time on this code?
Replies
1
Views
355
rlv01
R
P
  • Solved
Recorded Macro Ammendments
Replies
3
Views
334
Joe4
Joe4
C
  • Question
Daily Run data (copy data in loop by daily in worksheet)
Replies
3
Views
144
dermie_72
D
D
  • Question
VBA optimization advice
Replies
3
Views
81
bobsan42
bobsan42

Forum statistics

Threads
1,214,405
Messages
6,119,315
Members
448,886
Latest member
GBCTeacher

Share this page

We've detected that you are using an adblocker.

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

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

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

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

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

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

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

Disable uBlock

Follow these easy steps to disable uBlock

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