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
 
Sort by date Sort by votes
Could you actually explain in words what the code is meant to do?

We can try and interpret the posted code and make suggestions but it's always helpful to know it's actual purpose.:)
 
Upvote 0

Excel Facts

What did Pito Salas invent?
Pito Salas, working for Lotus, popularized what would become to be pivot tables. It was released as Lotus Improv in 1989.
You must log in or register to reply here.

Similar threads

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

Forum statistics

Threads
1,214,834
Messages
6,121,876
Members
449,056
Latest member
ruhulaminappu

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