Getting error Procedure too large in VBA Macros (Excel)

M

muhanad16

New Member
Joined
Apr 20, 2016
Messages
2
I'm new to Macros, and have no idea about visual basic, but pushing the macro record button. I recorded a simple macro to filter data and I got the following error [h=1]error Procedure too large[/h]I quick look over the internet I found that Macro record every click and as a result there is lots of steps unnecessary to my output. can some one help me clean the code below

Code: 
Sub Macro2()
'
' Macro2 Macro
' create ES Report
'
' Keyboard Shortcut: Ctrl+Shift+E
'
    Columns("F:F").Select
    Columns("F:F").Select
    Range("H9").Select
    Columns("D:D").EntireColumn.AutoFit
    Columns("E:E").EntireColumn.AutoFit
    Columns("F:F").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Columns("F:F").Select
    Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("E3:E26").Select
    Selection.TextToColumns Destination:=Range("E3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("H:H").Select
    Selection.Delete Shift:=xlToLeft
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("D3:D26").Select
    Selection.TextToColumns Destination:=Range("D3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C3:C26").Select
    Selection.TextToColumns Destination:=Range("C3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("F:F").Select
    Selection.Delete Shift:=xlToLeft
    Range("C3:C26,F3:F26").Select
    Range("F3").Activate
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("M3:M26,P3:P26").Select
    Range("P3").Activate
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("C3:C27").Select
    Range("C27").Activate
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C)"
    Range("F3:F27").Select
    Range("F27").Activate
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C)"
    Range("M3:M27").Select
    Range("M27").Activate
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C)"
    Range("P3:P27").Select
    Range("P27").Activate
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C)"
    Range("P3:P27").Select
    ActiveWindow.SmallScroll Down:=3
    Range("C29").Select
    ActiveCell.FormulaR1C1 = "=R[-2]C[3]-R[-2]C"
    Range("C30").Select
    ActiveCell.FormulaR1C1 = "=R[-3]C[3]"
    Range("M29").Select
    ActiveCell.FormulaR1C1 = "=R[-2]C[3]-R[-2]C"
    Range("M30").Select
    ActiveCell.FormulaR1C1 = "=R[-3]C[3]"
    Range("M31").Select
    Sheets("VIP PT Female").Select
    Cells.EntireColumn.AutoFit
    Cells.EntireColumn.AutoFit
    Cells.EntireColumn.AutoFit
    Cells.EntireColumn.AutoFit
    Columns("D:D").Select
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1)), TrailingMinusNumbers:=True
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C3:C26").Select
    Selection.TextToColumns Destination:=Range("C3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("F3:F26").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("C3:C27").Select
    Range("C27").Activate
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C)"
    Range("F3:F27").Select
    Range("F27").Activate
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C)"
    Range("F3:F27").Select
    ActiveWindow.SmallScroll Down:=6
    Range("C29").Select
    ActiveWindow.SmallScroll Down:=-9
    ActiveCell.FormulaR1C1 = "=R[-2]C[3]-R[-2]C"
    Range("C30").Select
    ActiveCell.FormulaR1C1 = "=R[-3]C[3]"
    Range("C31").Select
    Sheets("PT LV female").Select
    ActiveWindow.SmallScroll Down:=-18
    Columns("N:N").Select
    Selection.TextToColumns Destination:=Range("N1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1)), TrailingMinusNumbers:=True
    Columns("O:S").Select
    Selection.Delete Shift:=xlToLeft
    Columns("N:N").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("M3:M26").Select
    Selection.TextToColumns Destination:=Range("M3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("P:P").Select
    Selection.Delete Shift:=xlToLeft
    Columns("N:O").Select
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.SmallScroll Down:=-3
    Range("N3:N27").Select
    Columns("L:L").EntireColumn.AutoFit
    Columns("M:M").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("L3:L26").Select
    Selection.TextToColumns Destination:=Range("L3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1)), TrailingMinusNumbers:=True
    Columns("M:Q").Select
    Selection.Delete Shift:=xlToLeft
    Columns("L:L").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("K3:K26").Select
    Selection.TextToColumns Destination:=Range("K3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("L:M").Select
    Selection.Delete Shift:=xlToLeft
    Columns("J:J").EntireColumn.AutoFit
    Columns("K:K").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("J3:J26").Select
    Selection.TextToColumns Destination:=Range("J3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1)), TrailingMinusNumbers:=True
    Columns("K:O").Select
    Selection.Delete Shift:=xlToLeft
    Columns("J:J").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("I3:I26").Select
    Selection.TextToColumns Destination:=Range("I3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("J:K").Select
    Selection.Delete Shift:=xlToLeft
    Columns("H:H").EntireColumn.AutoFit
    Columns("I:I").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("H3:H26").Select
    Selection.TextToColumns Destination:=Range("H3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1)), TrailingMinusNumbers:=True
    Columns("I:M").Select
    Selection.Delete Shift:=xlToLeft
    Columns("H:H").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("G3:G26").Select
    Selection.TextToColumns Destination:=Range("G3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("H:I").Select
    Selection.Delete Shift:=xlToLeft
    Columns("F:F").EntireColumn.AutoFit
    Columns("F:F").Select
    Columns("G:G").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("G:G").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("F3:F26").Select
    Selection.TextToColumns Destination:=Range("F3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1)), TrailingMinusNumbers:=True
    Columns("G:K").Select
    Selection.Delete Shift:=xlToLeft
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("E3:E26").Select
    Selection.TextToColumns Destination:=Range("E3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("F:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:D").EntireColumn.AutoFit
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("D3:D26").Select
    Selection.TextToColumns Destination:=Range("D3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1)), TrailingMinusNumbers:=True
    Columns("E:I").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C3:C26").Select
    Selection.TextToColumns Destination:=Range("C3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("D:E").Select
    Selection.Delete Shift:=xlToLeft
    Range("C3:C27").Select
    Range("C27").Activate
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C)"
    Range("D3:D27").Select
    ActiveWindow.SmallScroll Down:=-9
    ActiveWindow.Zoom = 85
    Range("D3:D27").Select
    Range("D27").Activate
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C)"
    Range("D27").Select
    Selection.AutoFill Destination:=Range("D27:N27"), Type:=xlFillDefault
    Range("D27:N27").Select
    Range("C28").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[1]-R[-1]C"
    Range("C28").Select
    Selection.AutoFill Destination:=Range("C28:N28"), Type:=xlFillDefault
    Range("C28:N28").Select
    Range("D28").Select
    Selection.ClearContents
    Range("F28").Select
    Selection.ClearContents
    Range("H28").Select
    Selection.ClearContents
    Range("J28").Select
    Selection.ClearContents
    Range("L28").Select
    Selection.ClearContents
    Range("N28").Select
    Selection.ClearContents
    Range("C29").Select
    ActiveCell.FormulaR1C1 = "=R[-2]C[1]"
    Range("C29").Select
    Range("E29").Select
    ActiveCell.FormulaR1C1 = "=R[-2]C[1]"
    Range("G29").Select
    ActiveCell.FormulaR1C1 = "=R[-2]C[1]"
    Range("I29").Select
    ActiveCell.FormulaR1C1 = "=R[-2]C[1]"
    Range("K29").Select
    ActiveCell.FormulaR1C1 = "=R[-2]C[1]"
    Range("M29").Select
    ActiveCell.FormulaR1C1 = "=R[-2]C[1]"
    Range("M30").Select
    Sheets("PT LV AUTO").Select
    ActiveWindow.SmallScroll ToRight:=8
    Columns("V:V").Select
    Selection.TextToColumns Destination:=Range("V1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Columns("W:AB").Select
    Selection.Delete Shift:=xlToLeft
    Columns("V:V").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("U3:U26").Select
    Selection.TextToColumns Destination:=Range("U3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("V:W").Select
    Selection.Delete Shift:=xlToLeft
    Columns("T:T").EntireColumn.AutoFit
    Columns("U:U").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("U:U").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("T3:T26").Select
    Selection.TextToColumns Destination:=Range("T3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Columns("U:Z").Select
    Selection.Delete Shift:=xlToLeft
    Columns("T:T").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("S3:S26").Select
    Selection.TextToColumns Destination:=Range("S3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("T:U").Select
    Selection.Delete Shift:=xlToLeft
    Columns("R:R").EntireColumn.AutoFit
    Columns("S:S").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("R3:R26").Select
    Selection.TextToColumns Destination:=Range("R3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Columns("S:X").Select
    Selection.Delete Shift:=xlToLeft
    Columns("R:R").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("Q3:Q26").Select
    Selection.TextToColumns Destination:=Range("Q3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("R:S").Select
    Selection.Delete Shift:=xlToLeft
    Columns("P:P").EntireColumn.AutoFit
    Columns("Q:Q").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("Q:R").Select
    Selection.Copy
    Columns("Q:Q").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("O:O").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("P3:P26").Select
    Selection.TextToColumns Destination:=Range("P3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Columns("Q:V").Select
    Selection.Delete Shift:=xlToLeft
    Columns("P:P").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("O3:O26").Select
    ActiveWindow.SmallScroll ToRight:=-10
    Selection.TextToColumns Destination:=Range("O3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("P:Q").Select
    Selection.Delete Shift:=xlToLeft
    Columns("N:N").EntireColumn.AutoFit
    Columns("AD:AI").Select
    Selection.Copy
    Columns("O:O").Select
    Selection.Insert Shift:=xlToRight
    Columns("M:M").Select
    Application.CutCopyMode = False
    Columns("O:T").Select
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Selection.Copy
    Columns("M:M").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    Columns("K:K").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    Columns("I:I").Select
    Selection.Insert Shift:=xlToRight
    Columns("I:N").Select
    Application.CutCopyMode = False
    Selection.Copy
    Columns("G:G").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight
    Columns("D:D").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("D:E").Select
    Selection.Copy
    Columns("N:N").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll ToRight:=9
    Columns("X:X").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll ToRight:=11
    Columns("AH:AH").Select
    Selection.Insert Shift:=xlToRight
    ActiveWindow.SmallScroll ToRight:=9
    Application.CutCopyMode = False
    Selection.Copy
    Columns("AR:AR").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    Columns("BB:BB").Select
    Selection.Insert Shift:=xlToRight
    ActiveWindow.SmallScroll ToRight:=10
    Range("C3:C26").Select
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("C3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("D:E").Select
    Selection.Delete Shift:=xlToLeft
    Range("D3:D26").Select
    Selection.TextToColumns Destination:=Range("D3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Columns("E:J").Select
    Selection.Delete Shift:=xlToLeft
    Range("E3:E26").Select
    Selection.TextToColumns Destination:=Range("E3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("F:G").Select
    Selection.Delete Shift:=xlToLeft
    Range("F3:F26").Select
    Selection.TextToColumns Destination:=Range("F3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Columns("G:L").Select
    Selection.Delete Shift:=xlToLeft
    Range("G3:G26").Select
    Selection.TextToColumns Destination:=Range("G3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("H:I").Select
    Selection.Delete Shift:=xlToLeft
    Range("H3:H26").Select
    Selection.TextToColumns Destination:=Range("H3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Columns("I:N").Select
    Selection.Delete Shift:=xlToLeft
    Range("I3:I26").Select
    Selection.TextToColumns Destination:=Range("I3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("J:K").Select
    Selection.Delete Shift:=xlToLeft
    Range("J3:J26").Select
    Selection.TextToColumns Destination:=Range("J3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Columns("K:P").Select
    Selection.Delete Shift:=xlToLeft
    Range("K3:K26").Select
    Selection.TextToColumns Destination:=Range("K3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("L:M").Select
    Selection.Delete Shift:=xlToLeft
    Range("L3:L26").Select
    Selection.TextToColumns Destination:=Range("L3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Columns("M:R").Select
    Selection.Delete Shift:=xlToLeft
    Range("M3:M26").Select
    Selection.TextToColumns Destination:=Range("M3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("N:O").Select
    Selection.Delete Shift:=xlToLeft
    Range("N3:N26").Select
    Selection.TextToColumns Destination:=Range("N3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Columns("O:T").Select
    Selection.Delete Shift:=xlToLeft
    Columns("N:N").EntireColumn.AutoFit
    Columns("N:N").ColumnWidth = 5
    ActiveWindow.SmallScroll Down:=6
    Range("C27").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("C3:C27").Select
    Range("C27").Activate
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C)"
    Range("C27").Select
    Selection.AutoFill Destination:=Range("C27:V27"), Type:=xlFillDefault
    Range("C27:V27").Select
    ActiveWindow.SmallScroll Down:=6
    Range("C28").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C[1]-R[-1]C"
    Range("C29").Select
    ActiveCell.FormulaR1C1 = "=R[-2]C[1]"
    Range("C28").Select
    Selection.AutoFill Destination:=Range("C28:V28"), Type:=xlFillDefault
    Range("C28:V28").Select
    Range("V28").Select
    Selection.ClearContents
    Range("T28").Select
    Selection.ClearContents
    Range("R28").Select
    Selection.ClearContents
    Range("P28").Select
    Selection.ClearContents
    Range("N28").Select
    Selection.ClearContents
    Range("L28").Select
    Selection.ClearContents
    Range("J28").Select
    Selection.ClearContents
    Range("H28").Select
    Selection.ClearContents
    Range("F28").Select
    Selection.ClearContents
    Range("D28").Select
    Selection.ClearContents
    Range("D29").Select
    ActiveCell.FormulaR1C1 = "=R[-2]C"
    Range("D29").Select
    Selection.AutoFill Destination:=Range("D29:V29"), Type:=xlFillDefault
    Range("D29:V29").Select
    Range("V29,T29,R29").Select
    Range("R29").Activate
    ActiveWindow.SmallScroll Down:=-9
    Range("C29").Select
    Selection.AutoFill Destination:=Range("C29:V29"), Type:=xlFillDefault
    Range("C29:V29").Select
    Range("V29").Select
    Selection.ClearContents
    Range("T29").Select
    Selection.ClearContents
    Range("R29").Select
    Selection.ClearContents
    Range("P29").Select
    Selection.ClearContents
    Range("N29").Select
    Selection.ClearContents
    Range("L29").Select
    Selection.ClearContents
    Range("J29").Select
    Selection.ClearContents
    Range("H29").Select
    Selection.ClearContents
    Range("F29").Select
    Selection.ClearContents
    Range("D29").Select
    Selection.ClearContents
    Range("E29").Select
    Sheets("PT LV MAN").Select
    Columns("Y:Y").Select
    Selection.ClearContents
    Range("X3:X26").Select
    Selection.TextToColumns Destination:=Range("X3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Range("X3").Select
    Columns("AE:AJ").Select
    Selection.Copy
    Columns("W:W").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    Columns("U:U").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    Columns("S:S").Select
    Selection.Insert Shift:=xlToRight
    Columns("S:X").Select
    Application.CutCopyMode = False
    Selection.Copy
    Columns("Q:Q").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    Columns("O:O").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    Columns("M:M").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    Columns("K:K").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    Columns("I:I").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    Columns("G:G").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight
    Columns("D:D").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("D:E").Select
    Selection.Copy
    Columns("N:N").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll ToRight:=10
    Columns("X:X").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    Columns("AH:AH").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll ToRight:=-3
    Columns("AR:AR").Select
    Selection.Insert Shift:=xlToRight
    Columns("AR:AS").Select
    Application.CutCopyMode = False
    Selection.Copy
    Columns("BB:BB").Select
    Selection.Insert Shift:=xlToRight
    ActiveWindow.SmallScroll ToRight:=8
    Application.CutCopyMode = False
    Selection.Copy
    Columns("BL:BL").Select
    Selection.Insert Shift:=xlToRight
    ActiveWindow.SmallScroll ToRight:=8
    Application.CutCopyMode = False
    Selection.Copy
    Columns("BV:BV").Select
    Selection.Insert Shift:=xlToRight
    ActiveWindow.SmallScroll ToRight:=13
    Application.CutCopyMode = False
    Selection.Copy
    Columns("CF:CF").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    Columns("CP:CP").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Selection.Copy
    Columns("CZ:CZ").Select
    Selection.Insert Shift:=xlToRight
    Range("DB27").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("CY3:CY26").Select
    Selection.TextToColumns Destination:=Range("CY3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Range("CY27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("CY28").Select
    ActiveWindow.SmallScroll ToRight:=-5
    Range("CR3:CR26").Select
    Selection.TextToColumns Destination:=Range("CR3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Range("CR3:CT27").Select
    Range("CR27").Activate
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C)"
    Range("CR3:CT27").Select
    Range("CS27").Activate
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C)"
    Range("CR3:CT27").Select
    Range("CT27").Activate
    Range("CR27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("CO3:CO26").Select
    Selection.TextToColumns Destination:=Range("CO3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Range("CO27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("CO28").Select
    ActiveWindow.SmallScroll ToRight:=-12
    Range("CH3:CH26").Select
    Selection.TextToColumns Destination:=Range("CH3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Range("CH27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("CE3:CE26").Select
    Selection.TextToColumns Destination:=Range("CE3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Range("CE27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("CH27").Select
    ActiveWindow.SmallScroll ToRight:=-7
    Range("BX3:BX26").Select
    Selection.TextToColumns Destination:=Range("BX3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    ActiveWindow.SmallScroll Down:=-3
    Range("BX27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("BU3:BU26").Select
    Selection.TextToColumns Destination:=Range("BU3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Range("BU27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("BU28").Select
    ActiveWindow.SmallScroll ToRight:=-12
    Range("BN3:BN26").Select
    Selection.TextToColumns Destination:=Range("BN3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Range("BN27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("BK3:BK26").Select
    Selection.TextToColumns Destination:=Range("BK3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Range("BK27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("BK28").Select
    ActiveWindow.SmallScroll ToRight:=-10
    Range("BD3:BD26").Select
    Selection.TextToColumns Destination:=Range("BD3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Range("BD27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("BA3:BA26").Select
    Selection.TextToColumns Destination:=Range("BA3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Range("BA27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("BA28").Select
    ActiveWindow.SmallScroll ToRight:=-11
    ActiveWindow.Zoom = 85
    Range("AT3:AT26").Select
    Selection.TextToColumns Destination:=Range("AT3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Selection.Cut Destination:=Range("AT4:AT27")
    Range("AT27").Select
    Range("AT27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("AQ3:AQ26").Select
    Selection.TextToColumns Destination:=Range("AQ3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Range("AQ27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("AJ3:AJ26").Select
    Selection.TextToColumns Destination:=Range("AJ3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Range("AJ27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("AJ28").Select
    ActiveWindow.SmallScroll ToRight:=-22
    Range("AG3:AG26").Select
    Selection.TextToColumns Destination:=Range("AG3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Range("AG27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("Z3:Z26").Select
    Selection.TextToColumns Destination:=Range("Z3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Range("Z27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("W3:W26").Select
    Selection.TextToColumns Destination:=Range("W3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Range("W27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("P3:P26").Select
    Selection.TextToColumns Destination:=Range("P3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Range("P27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("M3:M26").Select
    Selection.TextToColumns Destination:=Range("M3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Range("M27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("M28").Select
    ActiveWindow.SmallScroll ToRight:=-10
    Range("F3:F26").Select
    Selection.TextToColumns Destination:=Range("F3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
    Range("F27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("C3:C26").Select
    Selection.TextToColumns Destination:=Range("C3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Range("C27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C:R[-1]C[2])"
    Range("C2").Select
    Selection.Copy
    Range("C29").Select
    ActiveSheet.Paste
    Range("C30").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=R[-3]C[3]-R[-3]C"
    Range("C31").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[3]"
    Range("M2").Select
    Selection.Copy
    Range("D29").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("D30").Select
    ActiveCell.FormulaR1C1 = "=R[-3]C[12]-R[-3]C[9]"
    Range("D31").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[12]"
    Range("W2").Select
    Selection.Copy
    Range("E29").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("E30").Select
    ActiveCell.FormulaR1C1 = "=R[-3]C[21]-R[-3]C[18]"
    Range("E31").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[21]"
    Range("E32").Select
    ActiveWindow.SmallScroll ToRight:=9
    Range("AG2").Select
    Selection.Copy
    ActiveWindow.SmallScroll ToRight:=-9
    Range("F29").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll ToRight:=21
    Range("DB27").Select
    Range("F30").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=R[-3]C[30]-R[-3]C[27]"
    Range("F31").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[30]"
    Range("G30").Select
    ActiveCell.FormulaR1C1 = "=R[-3]C[39]-R[-3]C[36]"
    Range("G31").Select
    ActiveCell.FormulaR1C1 = "2t27"
    Range("G31").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[13]"
    Range("G31").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[39]"
    Range("H30").Select
    ActiveCell.FormulaR1C1 = "=R[-3]C[48]-R[-3]C[45]"
    Range("H31").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[48]"
    Range("I30").Select
    ActiveCell.FormulaR1C1 = "=R[-3]C[57]-R[-3]C[54]"
    Range("I31").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[57]"
    Range("J30").Select
    ActiveCell.FormulaR1C1 = "=R[-3]C[66]-R[-3]C[63]"
    Range("J31").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[66]"
    Range("K30").Select
    ActiveCell.FormulaR1C1 = "=R[-3]C[75]-R[-3]C[72]"
    Range("K31").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[75]"
    Range("L30").Select
    ActiveCell.FormulaR1C1 = "=R[-3]C[84]-R[-3]C[81]"
    Range("L31").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[84]"
    Range("M30").Select
    ActiveCell.FormulaR1C1 = "=R[-3]C[93]-R[-3]C[90]"
    Range("M31").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[93]"
    Range("M32").Select
    Range("AQ2").Select
    Selection.Copy
    Range("G29").Select
    ActiveSheet.Paste
    Range("BA2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H29").Select
    ActiveSheet.Paste
    ActiveWindow.Zoom = 70
    ActiveWindow.Zoom = 55
    Range("BK2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("I29").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveSheet.Paste
    Range("BK2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("I29").Select
    Range("BU2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("J29").Select
    ActiveSheet.Paste
    Range("CE2").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-3
    ActiveWindow.Zoom = 70
    ActiveWindow.Zoom = 85
    ActiveWindow.Zoom = 100
    ActiveWindow.SmallScroll Down:=6
    ActiveWindow.SmallScroll ToRight:=-4
    Range("K29").Select
    ActiveSheet.Paste
    Range("L29").Select
    ActiveSheet.Paste Link:=True
    Range("M29").Select
    ActiveSheet.Paste
    Range("K29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L29").Select
    ActiveSheet.Paste
    Range("M29").Select
    ActiveSheet.Paste
    Range("L29").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Tower 3 (M)"
    Range("M29").Select
    ActiveCell.FormulaR1C1 = "Tower 5 (M)"
    Range("M30").Select
    ActiveWindow.SmallScroll Down:=-21
    ActiveWindow.SmallScroll Down:=12
    Sheets("PT LV AUTO").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("C2").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=12
    Range("C31").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("C31").Select
    Selection.Copy
    Range("D31").Select
    ActiveSheet.Paste
    Range("E31").Select
    ActiveSheet.Paste
    Range("F31").Select
    ActiveSheet.Paste
    Range("G31").Select
    ActiveSheet.Paste
    Range("D31").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Area 2 (A)"
    Range("E31").Select
    ActiveCell.FormulaR1C1 = "Area 3 (A)"
    Range("F31").Select
    ActiveCell.FormulaR1C1 = "Area 4 (A)"
    Range("G31").Select
    ActiveCell.FormulaR1C1 = "Area 5 (A)"
    Range("G32").Select
    ActiveWindow.SmallScroll Down:=-21
    Range("M2:V2").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=15
    Range("H31").Select
    ActiveSheet.Paste
    Range("J31").Select
    Application.CutCopyMode = False
    Selection.Cut
    Range("I31").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("J31").Select
    Application.CutCopyMode = False
    Selection.Copy
    Application.CutCopyMode = False
    Selection.Cut
    Range("I31").Select
    ActiveSheet.Paste
    Range("L31").Select
    Selection.Cut
    Range("J31").Select
    ActiveSheet.Paste
    Range("N31").Select
    Selection.Cut
    Range("K31").Select
    ActiveSheet.Paste
    Range("P31").Select
    Selection.Cut
    Range("L31").Select
    ActiveSheet.Paste
    Range("C32").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C"
    Range("C33").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C"
    Range("D32").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[1]"
    Range("D33").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[1]"
    Range("E32").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[2]"
    Range("E33").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[2]"
    Range("F32").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[3]"
    Range("F33").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[3]"
    Range("G32").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[4]"
    Range("G33").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[4]"
    Range("H32").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[5]"
    Range("H33").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[5]"
    Range("I32").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[6]"
    Range("I33").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[6]"
    Range("J32").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[7]"
    Range("J33").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[7]"
    Range("K32").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[8]"
    Range("K33").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[8]"
    Range("K34").Select
    Range("L32").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[9]"
    Range("L33").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[9]"
    Range("L34").Select
    Sheets("PT LV female").Select
    Range("C28:M29").Select
    ActiveWindow.SmallScroll Down:=9
    Range("C28:C29").Select
    Selection.Copy
    Range("C32").Select
    Range("C32").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("C2:M2").Select
    Sheets("PT LV female").Select
    Range("C2:M2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C31").Select
    ActiveSheet.Paste
    Range("E31").Select
    Application.CutCopyMode = False
    Selection.Cut
    Range("D31").Select
    ActiveSheet.Paste
    Range("G31").Select
    Selection.Cut
    Range("E31").Select
    ActiveSheet.Paste
    Range("I31").Select
    Selection.Cut
    Range("F31").Select
    ActiveSheet.Paste
    Range("K31").Select
    Selection.Cut
    Range("G31").Select
    ActiveSheet.Paste
    Range("M31").Select
    Selection.Cut
    Range("H31").Select
    ActiveSheet.Paste
    Range("C31").Select
    ActiveWindow.SmallScroll Down:=6
    Range("C32").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C"
    Range("C33").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C"
    Range("D32").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[1]"
    Range("D33").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[1]"
    Range("E32").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[2]"
    Range("E33").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[2]"
    Range("F32").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[3]"
    Range("F33").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[3]"
    Range("G32").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[4]"
    Range("G33").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[4]"
    Range("H32").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[5]"
    Range("H33").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[5]"
    Range("H34").Select
    Sheets("VIP PT Female").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("C2").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=15
    Range("C28").Select
    ActiveSheet.Paste
    Sheets("VIP PT M-F").Select
    Range("C2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C28").Select
    ActiveSheet.Paste
    Range("M2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D28").Select
    ActiveSheet.Paste
    Range("D29").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=R[-2]C[12]-R[-2]C[9]"
    Range("D30").Select
    ActiveCell.FormulaR1C1 = "=R[-3]C[12]"
    Range("D31").Select
    Sheets("VIP PT M-F").Select
    Range("C28:D30").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Sheets("VIP PT Female").Select
    Range("C28:C30").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Sheets("PT LV female").Select
    Range("C31:H33").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Sheets("PT LV AUTO").Select
    Range("C31:L33").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Sheets("PT LV MAN").Select
    Range("C29:M31").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("O32").Select
    ActiveWindow.SmallScroll Down:=-9
    Sheets("VIP PT M-F").Select
    ActiveWindow.SmallScroll Down:=-18
    Sheets("Module Name").Select
    ActiveCell.FormulaR1C1 = "='PT LV MAN'!R[19]C[-2]"
    Range("E10").Select
    Selection.AutoFill Destination:=Range("E10:E12"), Type:=xlFillDefault
    Range("E10:E12").Select
    Selection.AutoFill Destination:=Range("E10:L12"), Type:=xlFillDefault
    Range("E10:L12").Select
    Selection.AutoFill Destination:=Range("E10:N12"), Type:=xlFillDefault
    Range("E10:N12").Select
    Selection.AutoFill Destination:=Range("E10:P12"), Type:=xlFillDefault
    Range("E10:P12").Select
    Range("P10:P12").Select
    Selection.ClearContents
    Range("E10:O12").Select
    Columns("O:O").EntireColumn.AutoFit
    Columns("N:N").EntireColumn.AutoFit
    Columns("M:M").EntireColumn.AutoFit
    Columns("L:L").EntireColumn.AutoFit
    Columns("K:K").EntireColumn.AutoFit
    Columns("J:J").EntireColumn.AutoFit
    Range("E14").Select
    ActiveCell.FormulaR1C1 = "='PT LV AUTO'!R[17]C[-2]"
    Range("E14").Select
    Selection.AutoFill Destination:=Range("E14:E16"), Type:=xlFillDefault
    Range("E14:E16").Select
    Selection.AutoFill Destination:=Range("E14:O16"), Type:=xlFillDefault
    Range("E14:O16").Select
    Range("K14:O16").Select
    Selection.ClearContents
    Range("K14").Select
    ActiveCell.FormulaR1C1 = "='PT LV AUTO'!R[17]C[-2]"
    Range("L14").Select
    ActiveSheet.Paste
    Range("K14").Select
    Selection.ClearContents
    Range("L14").Select
    Selection.AutoFill Destination:=Range("L14:O14"), Type:=xlFillDefault
    Range("L14:O14").Select
    Selection.AutoFill Destination:=Range("L14:O16"), Type:=xlFillDefault
    Range("L14:O16").Select
    Range("E17").Select
    Sheets("Module Name").Select
    ActiveCell.FormulaR1C1 = "='PT LV female'!R[14]C[-2]"
    Range("E17").Select
    Selection.AutoFill Destination:=Range("E17:J17"), Type:=xlFillDefault
    Range("E17:J17").Select
    Selection.AutoFill Destination:=Range("E17:J19"), Type:=xlFillDefault
    Range("E17:J19").Select
    Sheets("Module Name").Select
    Range("P10").Select
    ActiveCell.FormulaR1C1 = "='VIP PT Female'!R[18]C[-13]"
    Range("P10").Select
    Selection.AutoFill Destination:=Range("P10:P12"), Type:=xlFillDefault
    Range("P10:P12").Select
    Sheets("Module Name").Select
    Range("E20").Select
    ActiveSheet.Paste
    Selection.AutoFill Destination:=Range("E20:E22"), Type:=xlFillDefault
    Range("E20:E22").Select
    Range("E23").Select
    ActiveSheet.Paste
    Range("E23").Select
    Selection.AutoFill Destination:=Range("E23:E25"), Type:=xlFillDefault
    Range("E23:E25").Select
    Range("E20").Select
    ActiveCell.FormulaR1C1 = "='VIP PT M-F'!R[8]C[-2]"
    Range("E20").Select
    Selection.AutoFill Destination:=Range("E20:F20"), Type:=xlFillDefault
    Range("E20:F20").Select
    Range("E20:F20").Select
    Selection.AutoFill Destination:=Range("E20:F22"), Type:=xlFillDefault
    Range("E20:F22").Select
    ActiveWindow.SmallScroll Down:=3
    Range("E26").Select
    ActiveCell.FormulaR1C1 = "=R[-15]C+R[-11]C+R[-8]C+R[-5]C+R[-2]C"
    Range("E27").Select
    ActiveCell.FormulaR1C1 = "=R[-15]C+R[-11]C+R[-8]C+R[-5]C+R[-2]C"
    Range("E26").Select
    Selection.AutoFill Destination:=Range("E26:P26"), Type:=xlFillDefault
    Range("E26:P26").Select
    Range("E27").Select
    Selection.AutoFill Destination:=Range("E27:P27"), Type:=xlFillDefault
    Range("E27:P27").Select
    Range("Q26").Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
    Range("Q27").Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
    Range("Q28").Select
    ActiveWindow.SmallScroll ToRight:=2
    Range("D26").Select
    ActiveCell.FormulaR1C1 = "ES"
    Range("D27").Select
    ActiveCell.FormulaR1C1 = "TOTAl Slots"
    Range("D28").Select
    ActiveCell.FormulaR1C1 = "%ES"
    Range("E28").Select
    ActiveCell.FormulaR1C1 = "=R[-2]C/R[-1]C"
    Range("E28").Select
    Selection.AutoFill Destination:=Range("E28:Q28"), Type:=xlFillDefault
    Range("E28:Q28").Select
    Selection.Style = "Percent"
    Range("R26").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D29").Select
    ActiveCell.FormulaR1C1 = "Total Cost"
    Range("Q29").Select
    ActiveCell.FormulaR1C1 = "=65*R[-3]C"
    Range("Q28:Q29").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Font.Bold = True
    Selection.Font.Underline = xlUnderlineStyleSingle
    Selection.Font.Size = 12
    Selection.Font.Size = 14
End Sub
 
Last edited by a moderator:

Excel Facts

What is the last column in Excel?
Excel columns run from A to Z, AA to AZ, AAA to XFD. The last column is XFD.
Sort by date Sort by votes
Welcome to the Board!

The first thing I'd do is optimize your code by getting rid of select statements. Generally, when you see "Select" followed by "Selection", you can elimintate both statements. And definitely get rid of unnecessary statements, like multiple range selections and screen navigation. Here's an example:

Code: 
    Columns("C:F").EntireColumn.AutoFit
    Columns("F:F").TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True

HTH,
 
Upvote 0
Smitty said:
Welcome to the Board!

The first thing I'd do is optimize your code by getting rid of select statements. Generally, when you see "Select" followed by "Selection", you can elimintate both statements. And definitely get rid of unnecessary statements, like multiple range selections and screen navigation. Here's an example:

Code: 
    Columns("C:F").EntireColumn.AutoFit
    Columns("F:F").TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True

HTH,
Click to expand...


thanks for your help.
do you mean the first statement of the code should be removed " Columns("C:F").EntireColumn.AutoFit" since it only does atutofit for the column.
or the intire code bit
" Columns("C:F").EntireColumn.AutoFit
Columns("F:F").TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True[/code]"
 
Upvote 0
You must log in or register to reply here.

Similar threads

D
  • Question
VBA optimization advice
Replies
3
Views
135
bobsan42
bobsan42
A
  • Solved
Looping Through Columns
Replies
3
Views
523
kevin9999
K
C
  • Question
How to get my macro to stop at the last recognized line
Replies
6
Views
232
Coco1
C
E
  • Question
VBA causing time values to go to AM/PM
Replies
1
Views
382
eddm87
E
Q
  • Question
How to remove 400 error from clear even rows/text to columns macro?
Replies
1
Views
162
Joe4
Joe4

Forum statistics

Threads
1,215,327
Messages
6,124,287
Members
449,149
Latest member
mwdbActuary

Share this page

We've detected that you are using an adblocker.

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

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

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

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

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

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

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

Disable uBlock

Follow these easy steps to disable uBlock

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