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

I
  • Solved
Text to Columns VBA Optimizing
Replies
3
Views
204
MARK858
MARK858
datastudent
  • Solved
VBA: Auto answer pop up message
Replies
3
Views
49
Joe4
Joe4
S
  • Solved
Text to Columns Question
Replies
2
Views
169
Steve001
S
F
  • Solved
Delimiters in VBA has different result than manual
Replies
7
Views
288
Peter_SSs
Peter_SSs
H
  • Question Question
Create automation VBA code with Power query to load data another workbook
Replies
3
Views
82
hakita
H

Forum statistics

Threads
1,226,850
Messages
6,193,353
Members
453,790
Latest member
yassinosnoo1

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