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
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