Re: Macro error message 'procedure is too large'

Mackfarm

New Member
Joined
Mar 3, 2014
Messages
2
Re: Macro error message 'procedure is too large'

Help!!!
I have recorded a Marco using the recorder but when I went to run it came up with the error "procedure is too long". It's a pretty basic Marco that cleans up a Profit & Loss exported from Quickbooks and presents the data in a easier to read format. I am using Excel for Mac 2011. :confused:

Code:
Sub Class()

' Class Macro
'
'
    Range("B2").Select
    Application.CutCopyMode = False
    Selection.Cut Destination:=Range("E2")
    Range("D3").Select
    Selection.Cut Destination:=Range("E3")
    Range("E3").Select
    Selection.Font.ColorIndex = 0
    Selection.Font.ColorIndex = 0
    Range("D2").Select
    ActiveWindow.SmallScroll Down:=13
    Range("D23:D24").Select
    Selection.Cut Destination:=Range("E23:E24")
    Range("E23:E24").Select
    ActiveWindow.SmallScroll Down:=-23
    Columns("E:E").EntireColumn.AutoFit
    Columns("G:G").EntireColumn.AutoFit
    Columns("G:G").ColumnWidth = 16.17
    Columns("G:G").ColumnWidth = 21.5
    ActiveWindow.SmallScroll Down:=107
    Range("D122").Select
    Selection.Cut Destination:=Range("E122")
    Range("C123").Select
    Selection.Cut Destination:=Range("E123")
    Range("D124").Select
    Selection.Cut Destination:=Range("E124")
    Range("E124").Select
    Selection.Font.ColorIndex = 0
    ActiveWindow.SmallScroll Down:=175
    Range("D296").Select
    Selection.Cut Destination:=Range("E296")
    Range("B297:B298").Select
    Selection.Cut Destination:=Range("E297:E298")
    Range("C299").Select
    Selection.Cut Destination:=Range("E299")
    Range("E299").Select
    Selection.Font.ColorIndex = 0
    ActiveWindow.SmallScroll Down:=6
    Range("D300:D308").Select
    Selection.Cut Destination:=Range("E300:E308")
    Range("E300:E308").Select
    ActiveWindow.SmallScroll Down:=4
    Range("C309:C310").Select
    Selection.Cut Destination:=Range("E309:E310")
    Range("E310").Select
    Selection.Font.ColorIndex = 0
    ActiveCell.FormulaR1C1 = "Other Expense"
    Range("D311").Select
    Selection.Cut Destination:=Range("E311")
    Range("C312").Select
    Selection.Cut Destination:=Range("E312")
    Range("B313").Select
    Selection.Cut Destination:=Range("E313")
    Range("A314").Select
    Selection.Cut Destination:=Range("E314")
    Range("E314").Select
    ActiveWindow.SmallScroll Down:=-397
    Range("A15:D15").Select
    Selection.EntireColumn.Delete
    ActiveWindow.SmallScroll Down:=-129
    Columns("D:J").Select
    ActiveWindow.SmallScroll ToRight:=-1
    Columns("E:E").Select
    Selection.Delete Shift:=xlToLeft
    Range("F1").Select
    Selection.EntireColumn.Delete
    Range("G1").Select
    Selection.EntireColumn.Delete
    Range("H1").Select
    Selection.EntireColumn.Delete
    Range("I1").Select
    Selection.EntireColumn.Delete
    Rows("1:1").Select
    With Selection
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Selection.RowHeight = 34
    Rows("1:1").EntireRow.AutoFit
    Selection.RowHeight = 29
    Range("D1:I1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Range("G4").Select
    Columns("B:B").EntireColumn.AutoFit
    ActiveWindow.SmallScroll Down:=45
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=109
    Range("C164:C165").Select
    Selection.Cut Destination:=Range("B164:B165")
    Range("B164:B165").Select
    ActiveWindow.SmallScroll Down:=128
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=1
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=22
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=-491
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Columns("B:B").EntireColumn.AutoFit
    Columns("A:A").ColumnWidth = 26.83
    Columns("A:A").EntireColumn.AutoFit
    ActiveWindow.SmallScroll Down:=-187
    Cells.Select
    With Selection.Font
        .Size = 8
        .StrikeThrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
    End With
    Columns("C:H").Select
    Selection.NumberFormat = "$#,##0;[Red]-$#,##0"
    Range("B19").Select
    ActiveWindow.SmallScroll Down:=137
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=-169
    Range("A1").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("C15:H15").Select
    Selection.Copy
    Range("C1").Select
    ActiveSheet.Paste
    Range("A17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Range("A3").Select
    ActiveWindow.SmallScroll ToRight:=-2
    ActiveCell.FormulaR1C1 = "Retail"
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "Wholesale "
    Range("A5").Select
    ActiveCell.FormulaR1C1 = "Other"
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "Total Income"
    Rows("6:6").Select
    Selection.Font.Bold = True
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "=+R[34]C"
    Range("E4").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("E3").Select
    Selection.AutoFill Destination:=Range("E3:F3"), Type:=xlFillDefault
    Range("E3:F3").Select
    Range("E3").Select
    Selection.AutoFill Destination:=Range("C3:E3"), Type:=xlFillDefault
    Range("C3:E3").Select
    Range("F3").Select
    Selection.AutoFill Destination:=Range("F3:G3"), Type:=xlFillDefault
    Range("F3:G3").Select
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "Retail & Wholesale"
    Range("A4").Select
    Selection.EntireRow.Delete
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
    Range("C5").Select
    Selection.AutoFill Destination:=Range("C5:H5"), Type:=xlFillDefault
    Range("C5:H5").Select
    Range("H3").Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
    Range("H3").Select
    Selection.AutoFill Destination:=Range("H3:H4"), Type:=xlFillDefault
    Range("H3:H4").Select
    Range("A7").Select
    ActiveCell.FormulaR1C1 = ""
    Range("A2").Select
    Selection.Copy
    Range("A7").Select
    ActiveSheet.Paste
    Range("A7").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "COGS"
    Range("A8").Select
    ActiveWindow.SmallScroll Down:=2
    Range("A8").Select
    ActiveCell.FormulaR1C1 = "=+R[31]C"
    Range("A9").Select
    ActiveWindow.SmallScroll Down:=-10
    Range("F8").Select
    ActiveCell.FormulaR1C1 = "=+R[48]C"
    Range("F9").Select
    ActiveWindow.SmallScroll Down:=-7
    Range("A9").Select
    ActiveCell.FormulaR1C1 = "=+R[48]C"
    Range("A10").Select
    ActiveWindow.SmallScroll Down:=-13
    Range("F8").Select
    Selection.AutoFill Destination:=Range("F8:F9"), Type:=xlFillDefault
    Range("F8:F9").Select
    Range("F9").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("A10").Select
    ActiveCell.FormulaR1C1 = "=+R[49]C"
    Range("A11").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("F10").Select
    ActiveCell.FormulaR1C1 = "=+R[49]C"
    Range("F11").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("A11").Select
    ActiveWindow.SmallScroll Down:=1
    Range("A11").Select
    ActiveCell.FormulaR1C1 = "=+R[49]C"
    Range("A12").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("F11").Select
    ActiveCell.FormulaR1C1 = "=+R[66]C"
    Range("F12").Select
    ActiveWindow.SmallScroll Down:=-11
    ActiveWindow.SmallScroll ToRight:=-15
    Range("A12").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("A12").Select
    ActiveCell.FormulaR1C1 = "+A86"
    With ActiveCell.Characters(Start:=1, Length:=1).Font
        .Name = "Calibri (Theme Body)"
        .FontStyle = "Regular"
        .Size = 8
        .StrikeThrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
    End With
    With ActiveCell.Characters(Start:=2, Length:=3).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 8
        .StrikeThrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
    End With
    Range("A13").Select
    ActiveWindow.SmallScroll Down:=-16
    Range("A12").Select
    ActiveCell.FormulaR1C1 = "+A86"
    With ActiveCell.Characters(Start:=1, Length:=1).Font
        .Name = "Calibri (Theme Body)"
        .FontStyle = "Regular"
        .Size = 8
        .StrikeThrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
    End With
    With ActiveCell.Characters(Start:=2, Length:=3).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 8
        .StrikeThrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
    End With
    Range("A13").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("A12").Select
    ActiveCell.FormulaR1C1 = "+A86"
    With ActiveCell.Characters(Start:=1, Length:=1).Font
        .Name = "Calibri (Theme Body)"
        .FontStyle = "Regular"
        .Size = 8
        .StrikeThrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
    End With
    With ActiveCell.Characters(Start:=2, Length:=3).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 8
        .StrikeThrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
    End With
    Range("A13").Select
    ActiveWindow.SmallScroll Down:=-11
    Range("A12").Select
    ActiveWindow.SmallScroll Down:=62
    Range("A86").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-53
    Range("A12").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-8
    Range("F12").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[79]C"
    Range("F13").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("A13").Select
    ActiveWindow.SmallScroll Down:=71
    Range("A92").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-74
    Range("A13").Select
    ActiveSheet.Paste
    Range("E13").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[105]C"
    Range("E14").Select
    ActiveWindow.SmallScroll Down:=-13
    Range("A14").Select
    ActiveWindow.SmallScroll Down:=99
    Range("A119").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-93
    Range("A14").Select
    ActiveSheet.Paste
    Range("F14").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[110]C"
    Range("F15").Select
    ActiveWindow.SmallScroll Down:=-14
    Range("A15").Select
    ActiveWindow.SmallScroll Down:=112
    Range("A125").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-108
    Range("A16").Select
    ActiveWindow.SmallScroll Down:=1
    Range("A15").Select
    ActiveSheet.Paste
    Range("F15").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[122]C"
    Range("F16").Select
    ActiveWindow.SmallScroll Down:=108
    Range("A142").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-138
    Range("A16").Select
    ActiveSheet.Paste
    Range("F16").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[126]C"
    Range("F17").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("A20").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    ActiveCell.FormulaR1C1 = "Total COGS"
    Range("A21").Select
    ActiveCell.FormulaR1C1 = "% to Income"
    Range("F20").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-12]C:R[-1]C)"
    Range("A19").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("A28").Select
    ActiveCell.FormulaR1C1 = "Gross Profit "
    Range("F28").Select
    ActiveCell.FormulaR1C1 = "=+R[-23]C-R[-3]C"
    Range("F29").Select
    ActiveWindow.SmallScroll Down:=8
    Range("F25:F28").Select
    Selection.AutoFill Destination:=Range("E25:F28"), Type:=xlFillDefault
    Range("E25:F28").Select
    ActiveWindow.SmallScroll Down:=-13
    Range("B11").Select
    ActiveCell.FormulaR1C1 = "Packaging"
    Range("B12").Select
    ActiveCell.FormulaR1C1 = "Pates"
    Range("B13").Select
    ActiveCell.FormulaR1C1 = "Retail Shop Purchases"
    Range("B14").Select
    ActiveCell.FormulaR1C1 = "Smoked Products"
    Range("B15").Select
    ActiveCell.FormulaR1C1 = "Smoked Products - Wholesale"
    Range("B16").Select
    ActiveCell.FormulaR1C1 = "Tub Gas"
    Range("B11:B16").Select
    Selection.Copy
    Range("A11").Select
    ActiveSheet.Paste
    Range("B11:B16").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A21").Select
    ActiveCell.FormulaR1C1 = "Payroll"
    Range("A22").Select
    ActiveWindow.SmallScroll ToRight:=-1
    Range("A21").Select
    Selection.Font.ColorIndex = 0
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Range("A26").Select
    Selection.Copy
    Range("A29").Select
    ActiveSheet.Paste
    Rows("25:29").Select
    Selection.Font.Bold = True
    Range("E26").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C/R[-21]C"
    Range("E26").Select
    Selection.Style = "Percent"
    Selection.NumberFormat = "0.0%"
    Range("E29").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C/R[-24]C"
    Range("E29").Select
    Selection.NumberFormat = "$#,##0.000;[Red]-$#,##0.000"
    Selection.Style = "Percent"
    Selection.NumberFormat = "0.0%"
    Range("E26").Select
    Selection.AutoFill Destination:=Range("E26:F26"), Type:=xlFillDefault
    Range("E26:F26").Select
    Range("E29").Select
    Selection.AutoFill Destination:=Range("E29:F29"), Type:=xlFillDefault
    Range("E29:F29").Select
    ActiveWindow.SmallScroll Down:=13
    Range("A31").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("A21").Select
    Selection.Copy
    Range("A32").Select
    ActiveWindow.SmallScroll Down:=-5
    Application.CutCopyMode = False
    Range("A18").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("A19").Select
    ActiveCell.FormulaR1C1 = "Total F&B and Consumables"
    Range("A17").Select
    ActiveWindow.SmallScroll Down:=28
    Rows("38:160").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=19
    Range("A185").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-40
    Range("A17").Select
    ActiveSheet.Paste
    Range("E17").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[168]C"
    Range("E18").Select
    ActiveWindow.SmallScroll Down:=-7
    ActiveWindow.SmallScroll ToRight:=-1
    Range("A18").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    ActiveWindow.SmallScroll Down:=33
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=35
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=-26
    Range("A190").Select
    ActiveWindow.SmallScroll Down:=7
    Range("A194").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-58
    Range("A18").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=52
    Range("E198").Select
    ActiveWindow.SmallScroll Down:=-56
    Range("E18").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[180]C"
    Range("E19").Select
    ActiveWindow.SmallScroll Down:=40
    Range("A190:B190").Select
    ActiveWindow.SmallScroll Down:=8
    Range("A200").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-63
    Range("A19").Select
    ActiveSheet.Paste
    Range("E19").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[184]C"
    Range("E20").Select
    ActiveWindow.SmallScroll Down:=-10
    Range("A20").Select
    ActiveWindow.SmallScroll Down:=48
    Range("A203:B203").Select
    ActiveWindow.SmallScroll Down:=11
    Range("A204").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-58
    Range("A20").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Freight In"
    Range("A21").Select
    ActiveSheet.Paste
    ActiveCell.FormulaR1C1 = "Freight Out"
    Range("A22").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("E20").Select
    ActiveCell.FormulaR1C1 = "=+R[192]C"
    Range("E21").Select
    ActiveCell.FormulaR1C1 = "=+R[192]C"
    Range("E22").Select
    ActiveWindow.SmallScroll Down:=-10
    Range("A22").Select
    ActiveSheet.Paste
    ActiveCell.FormulaR1C1 = "Freight Other"
    Range("E22").Select
    ActiveCell.FormulaR1C1 = "=+R[192]C"
    Range("E23").Select
    ActiveWindow.SmallScroll Down:=-8
    Range("A23").Select
    ActiveWindow.SmallScroll Down:=62
    Range("A208:B215").Select
    ActiveWindow.SmallScroll Down:=-72
    Range("A23").Select
    ActiveCell.FormulaR1C1 = "Gas"
    Range("E23").Select
    ActiveCell.FormulaR1C1 = "=+R[197]C"
    Range("E24").Select
    ActiveWindow.SmallScroll Down:=-11
    Range("A24").Select
    ActiveWindow.SmallScroll Down:=58
    Range("A216:B219").Select
    ActiveWindow.SmallScroll Down:=9
    Range("A220:B220").Select
    ActiveWindow.SmallScroll Down:=-119
    Range("E23").Select
    Selection.AutoFill Destination:=Range("E23:F23"), Type:=xlFillDefault
    Range("E23:F23").Select
    Range("A24").Select
    ActiveWindow.SmallScroll Down:=28
    ActiveWindow.SmallScroll ToRight:=-25
    ActiveWindow.SmallScroll Down:=85
    Range("A254").Select
    ActiveWindow.SmallScroll Down:=39
    Range("A286").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-133
    Range("A31").Select
    ActiveSheet.Paste
    Range("E31").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[260]C"
    Range("E32").Select
    ActiveWindow.SmallScroll Down:=-7
    Range("E31").Select
    Selection.AutoFill Destination:=Range("E31:G31"), Type:=xlFillDefault
    Range("E31:G31").Select
    Range("E31").Select
    Selection.AutoFill Destination:=Range("C31:E31"), Type:=xlFillDefault
    Range("C31:E31").Select
    Range("A32").Select
    ActiveWindow.SmallScroll Down:=70
    Range("B234").Select
    ActiveWindow.SmallScroll Down:=-5
    Range("A32").Select
    ActiveWindow.SmallScroll Down:=82
    Range("B234").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-138
    Range("A32").Select
    ActiveSheet.Paste
    Range("E32").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[202]C"
    Range("E33").Select
    ActiveWindow.SmallScroll Down:=53
    Range("A234:B234").Select
    ActiveWindow.SmallScroll Down:=71
    Range("A294").Select
    ActiveWindow.SmallScroll Down:=6
    Range("A303").Select
    ActiveWindow.SmallScroll Down:=3
    Range("A313").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-153
    Range("A33").Select
    ActiveSheet.Paste
    Range("A34").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("E33").Select
    ActiveCell.FormulaR1C1 = "=+R[285]C"
    Range("E34").Select
    ActiveWindow.SmallScroll Down:=147
    Range("A319").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-158
    Range("A34").Select
    ActiveSheet.Paste
    Range("E34").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[289]C"
    Range("E35").Select
    ActiveWindow.SmallScroll Down:=144
    Range("E323").Select
    ActiveWindow.SmallScroll Down:=-228
    Range("E23").Select
    ActiveWindow.SmallScroll Down:=15
    Range("A35").Select
    ActiveWindow.SmallScroll Down:=145
    Range("C296").Select
    ActiveWindow.SmallScroll Down:=-140
    Range("C31").Select
    ActiveWindow.SmallScroll Down:=167
    Range("A331").Select
    ActiveWindow.SmallScroll Down:=-176
    Range("A32").Select
    Selection.EntireRow.Insert
    ActiveWindow.SmallScroll Down:=175
    Range("A332").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-163
    Range("A36").Select
    ActiveWindow.SmallScroll Down:=-7
    Range("A32").Select
    ActiveSheet.Paste
    Range("A33").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Insert
    Range("E32").Select
    ActiveCell.FormulaR1C1 = "=+R[301]C"
    Range("E33").Select
    ActiveWindow.SmallScroll Down:=165
    Range("A333:B333").Select
    ActiveWindow.SmallScroll Down:=-1
    Range("B333:H333").Select
    ActiveWindow.SmallScroll Down:=14
    Range("A341").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-193
    Range("A24").Select
    ActiveSheet.Paste
    Range("E24").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[317]C"
    Range("E25").Select
    ActiveWindow.SmallScroll Down:=-7
    Range("A25").Select
    ActiveCell.FormulaR1C1 = "Training "
    Range("E24").Select
    Selection.AutoFill Destination:=Range("E24:E25"), Type:=xlFillDefault
    Range("E24:E25").Select
    Range("E25").Select
    ActiveWindow.SmallScroll Down:=187
    Range("A345").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-191
    Range("A37").Select
    ActiveSheet.Paste
    Range("E37").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[308]C"
    Range("E38").Select
    ActiveWindow.SmallScroll Down:=169
    Range("A345:H345").Select
    ActiveWindow.SmallScroll Down:=5
    Range("A348").Select
    Selection.Copy
    Range("A348").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-205
    Range("A26").Select
    ActiveSheet.Paste
    Range("E26").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[322]C"
    Range("E27").Select
    ActiveWindow.SmallScroll Down:=173
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=10
    Range("A348:H348").Select
    ActiveWindow.SmallScroll Down:=-159
    Range("A196").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-41
    Rows("27:27").Select
    Application.CutCopyMode = False
    Range("A27").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("A27").Select
    ActiveCell.FormulaR1C1 = "Cleaning"
    Range("E27").Select
    ActiveCell.FormulaR1C1 = "=+R[171]C"
    Range("E28").Select
    ActiveWindow.SmallScroll Down:=-24
    Rows("36:36").Select
    Selection.Insert Shift:=xlDown
    Range("A36").Select
    ActiveCell.FormulaR1C1 = "Commissions"
    Range("E36").Select
    ActiveCell.FormulaR1C1 = "=+R[164]C"
    Range("E37").Select
    ActiveWindow.SmallScroll Down:=30
    Range("A199:H200").Select
    ActiveWindow.SmallScroll Down:=-19
    Range("B189").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-54
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=2
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=1
    Range("A28").Select
    ActiveSheet.Paste
    Range("A29").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("E28").Select
    ActiveCell.FormulaR1C1 = "=+R[166]C"
    Range("E29").Select
    ActiveWindow.SmallScroll Down:=27
    Range("B198").Select
    ActiveWindow.SmallScroll Down:=-51
    Range("A36").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Delete
    ActiveWindow.SmallScroll Down:=12
    Range("A48").Select
    ActiveCell.FormulaR1C1 = "Total Staff Costs"
    Range("A49").Select
    Selection.EntireRow.Insert
    Range("A41").Select
    ActiveCell.FormulaR1C1 = "Sub Total "
    Range("A42").Select
    Selection.EntireRow.Insert
    Range("A41").Select
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Range("A48").Select
    ActiveWindow.SmallScroll Down:=-3
    Range("A53").Select
    Selection.Copy
    Range("A50").Select
    ActiveSheet.Paste
    Range("A42").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Range("A44").Select
    Selection.EntireRow.Insert
    ActiveSheet.Paste
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Range("A36").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-1
    ActiveWindow.SmallScroll ToRight:=1
    ActiveWindow.SmallScroll Down:=-5
    ActiveWindow.SmallScroll ToRight:=-49
    ActiveWindow.SmallScroll Down:=9
    Range("A59").Select
    ActiveCell.FormulaR1C1 = "General and Admin"
    Range("A60").Select
    ActiveCell.FormulaR1C1 = "Marketing "
    Range("A61").Select
    ActiveCell.FormulaR1C1 = "Motor Vehicle"
    Range("A62").Select
    ActiveCell.FormulaR1C1 = "Salaries"
    Range("A63").Select
    ActiveCell.FormulaR1C1 = "Total Fixed "
    Range("A58").Select
    Selection.EntireRow.Insert
    Range("A190").Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Selection.Font.ColorIndex = 0
    Selection.Font.ColorIndex = 0
    Selection.Copy
    Range("A59").Select
    ActiveSheet.Paste
    Range("A59").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Fixed Expenses"
    Range("A57").Select
    Selection.Copy
    Range("A65").Select
    ActiveSheet.Paste
    Range("A66").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    ActiveWindow.SmallScroll Down:=15
    Range("A59").Select
    Selection.Copy
    Range("A67").Select
    ActiveSheet.Paste
    Range("A71").Select
    ActiveSheet.Paste
    Range("A67").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Other Income"
    Range("A71").Select
    ActiveCell.FormulaR1C1 = "Other Expenses"
    Range("A69").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("A76").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("A71").Select
    ActiveCell.FormulaR1C1 = "Total Other Expenses"
    Range("A78").Select
    ActiveCell.FormulaR1C1 = "Total Other Expenses"
    Range("A79").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("A66").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("A67").Select
    ActiveCell.FormulaR1C1 = "Operating Income"
    Range("A67").Select
    ActiveCell.FormulaR1C1 = "Operating Profit"
    Range("A65").Select
    Selection.Copy
    Range("A68").Select
    ActiveSheet.Paste
    Range("A79").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Net Profit"
    Range("A80").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-10
    Range("A74").Select
    ActiveWindow.SmallScroll Down:=12
    Range("A210").Select
    ActiveCell.FormulaR1C1 = "General & Admin"
    Range("A211").Select
    Selection.EntireRow.Insert
    Range("A84").Select
    Selection.Copy
    Range("A211").Select
    ActiveSheet.Paste
    Range("A211").Select
    Application.CutCopyMode = False
    ActiveWindow.SmallScroll Down:=2
    Range("A211").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Rows("84:84").Select
    Selection.Copy
    Rows("211:211").Select
    ActiveSheet.Paste
    Rows("212:212").Select
    ActiveSheet.Paste
    Rows("213:213").Select
    ActiveSheet.Paste
    Rows("214:220").Select
    ActiveSheet.Paste
    Range("A211").Select
    Application.CutCopyMode = False
    Range("A222").Select
    Selection.Copy
    Range("A211").Select
    ActiveSheet.Paste
    Range("C211").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[14]C"
    Range("A217").Select
    ActiveWindow.SmallScroll Down:=-6
    ActiveCell.FormulaR1C1 = "Marketing "
    Range("A210").Select
    Selection.Copy
    Range("A217").Select
    ActiveSheet.Paste
    Range("A219").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("A217").Select
    ActiveCell.FormulaR1C1 = "Marketing "
    Range("A217").Select
    Selection.Copy
    Range("A223").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=10
    Range("A228").Select
    ActiveSheet.Paste
    Range("A223").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Motor Vehicle "
    Range("A225").Select
    Selection.EntireRow.Insert
    Range("A213").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    ActiveWindow.SmallScroll Down:=10
    Range("A241").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-9
    Range("A212").Select
    ActiveSheet.Paste
    Range("C212").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[29]C"
    Range("A242").Select
    Selection.Copy
    Range("A220").Select
    ActiveSheet.Paste
    Range("C220").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[22]C"
    Range("C221").Select
    ActiveWindow.SmallScroll Down:=1
    Range("A241:B242").Select
    ActiveWindow.SmallScroll Down:=3
    Range("A243").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-11
    Range("A213").Select
    ActiveSheet.Paste
    Range("C213").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[30]C"
    Range("C214").Select
    ActiveWindow.SmallScroll Down:=-5
    Range("A214").Select
    ActiveCell.FormulaR1C1 = "Bank Charges"
    Range("C214").Select
    ActiveCell.FormulaR1C1 = "=+R[33]C-R[31]C"
    Range("C215").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("A215").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("A215").Select
    ActiveWindow.SmallScroll Down:=19
    Range("A255").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-40
    Range("A77").Select
    ActiveSheet.Paste
    Range("A78").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("C77").Select
    ActiveCell.FormulaR1C1 = "=+R[184]C"
    Range("C78").Select
    ActiveWindow.SmallScroll Down:=-4
    Range("A78").Select
    ActiveWindow.SmallScroll Down:=52
    Range("A262").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-109
    Range("A29").Select
    ActiveWindow.SmallScroll Down:=-21
    Range("A5").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Insert
    Range("A5").Select
    ActiveCell.FormulaR1C1 = "Less Cash Discounts "
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "=+R[258]C"
    Range("C6").Select
    ActiveWindow.SmallScroll Down:=-22
    Range("C6").Select
    ActiveWindow.SmallScroll ToRight:=-2
    ActiveCell.FormulaR1C1 = "=+R[-3]C+R[-2]C-R[-1]C"
    Range("C7").Select
    ActiveWindow.SmallScroll ToRight:=-21
    Range("C6").Select
    Selection.AutoFill Destination:=Range("C6:H6"), Type:=xlFillDefault
    Range("C6:H6").Select
    ActiveWindow.SmallScroll Down:=51
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=80
    Range("A263:B263").Select
    ActiveWindow.SmallScroll Down:=-45
    Range("A222").Select
    ActiveCell.FormulaR1C1 = "Charges"
    Range("C222").Select
    ActiveCell.FormulaR1C1 = "=+R[46]C"
    Range("C223").Select
    ActiveWindow.SmallScroll Down:=23
    Rows("251:270").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=-8
    Range("A272").Select
    ActiveWindow.SmallScroll Down:=6
    Range("A271:A272").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-27
    Range("A223").Select
    ActiveSheet.Paste
    Range("C223").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[48]C"
    Range("C224").Select
    ActiveWindow.SmallScroll Down:=-8
    Range("C223").Select
    Selection.AutoFill Destination:=Range("C223:C224"), Type:=xlFillDefault
    Range("C223:C224").Select
    Range("A226").Select
    ActiveWindow.SmallScroll Down:=30
    Range("A273").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-56
    Range("A79").Select
    ActiveSheet.Paste
    Range("C79").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[194]C"
    Range("C80").Select
    ActiveWindow.SmallScroll Down:=18
    Range("A245").Select
    ActiveCell.FormulaR1C1 = "Salaries"
    Range("A246").Select
    ActiveCell.FormulaR1C1 = "MD"
    Range("A249").Select
    ActiveWindow.SmallScroll Down:=17
    Rows("271:274").Select
    Selection.EntireRow.Hidden = True
    Rows("278:282").Select
    Selection.EntireRow.Hidden = True
    Rows("284:300").Select
    Selection.EntireRow.Hidden = True
    Rows("314:314").Select
    ActiveWindow.SmallScroll Down:=23
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=29
    Rows("366:371").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=26
    Rows("393:398").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=5
    Rows("406:406").Select
    Selection.EntireRow.Hidden = True
    Rows("414:415").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=8
    Rows("418:418").Select
    Selection.EntireRow.Hidden = True
    Rows("421:421").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=-119
    Range("A276").Select
    Selection.Copy
    Range("A235").Select
    ActiveSheet.Paste
    Range("C235").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[41]C"
    Range("A275:H276").Select
    ActiveWindow.SmallScroll Down:=-33
    Range("A80").Select
    ActiveWindow.SmallScroll Down:=26
    Range("A275").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-35
    Range("A80").Select
    ActiveSheet.Paste
    Range("C80").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[195]C"
    Range("C81").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("A80").Select
    ActiveWindow.SmallScroll Down:=49
    Range("A277:A283").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-27
    Range("A225").Select
    ActiveWindow.SmallScroll Down:=26
    Rows("277:456").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=9
    Range("A277").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-38
    Range("A225").Select
    ActiveSheet.Paste
    Range("C225").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[52]C"
    Range("C226").Select
    ActiveWindow.SmallScroll Down:=9
    Rows("275:282").Select
    Selection.EntireRow.Hidden = True
    Range("A283").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-21
    Range("A226").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("A226").Select
    ActiveSheet.Paste
    Range("C226").Select
    ActiveCell.FormulaR1C1 = "=+R[57]C"
    Range("A283:B283").Select
    ActiveWindow.SmallScroll Down:=16
    Rows("283:300").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=-9
    Range("A301").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-10
    Range("A236").Select
    ActiveSheet.Paste
    Range("C236").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[65]C"
    Range("A237").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    ActiveWindow.SmallScroll Down:=11
    Range("A304").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-29
    ActiveWindow.SmallScroll ToRight:=-1
    Range("A227").Select
    ActiveSheet.Paste
    Range("C227").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[77]C"
    Range("C228").Select
    ActiveWindow.SmallScroll Down:=13
    Range("A305").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-100
    Range("A30").Select
    ActiveSheet.Paste
    Range("F30").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[278]C"
    Range("F31").Select
    ActiveWindow.SmallScroll Down:=86
    Range("A304:B308").Select
    ActiveWindow.SmallScroll Down:=-21
    Range("A228").Select
    ActiveCell.FormulaR1C1 = "Insurance"
    Range("C228").Select
    ActiveCell.FormulaR1C1 = "=+R[90]C-R[88]C"
    Range("C229").Select
    ActiveWindow.SmallScroll Down:=15
    Range("A318:B318").Select
    ActiveWindow.SmallScroll Down:=7
    Rows("303:318").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=-7
    Range("A249").Select
    ActiveCell.FormulaR1C1 = "Superannuation"
    Range("C249").Select
    Selection.EntireColumn.Insert
    Columns("C:C").ColumnWidth = 7.5
    Range("C249").Select
    ActiveCell.FormulaR1C1 = "9.25%"
    Range("C249").Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Selection.Font.ColorIndex = 0
    Selection.Font.Bold = True
    Columns("C:C").EntireColumn.AutoFit
    Range("B320").Select
    ActiveWindow.SmallScroll Down:=-23
    Range("A229").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    ActiveCell.FormulaR1C1 = "Interest"
    Range("D229").Select
    ActiveCell.FormulaR1C1 = "=+R[101]C"
    Range("D230").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("D229").Select
    ActiveWindow.SmallScroll Down:=28
    Rows("324:324").Select
    Rows("323:330").Select
    Selection.EntireRow.Hidden = True
    Range("A331").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-24
    Range("A230").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=20
    Range("A332").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-107
    Range("A31").Select
    ActiveSheet.Paste
    Range("D31").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[301]C"
    Range("D32").Select
    ActiveWindow.SmallScroll Down:=63
    Range("D230").Select
    ActiveCell.FormulaR1C1 = "=+R[101]C"
    Range("D231").Select
    ActiveWindow.SmallScroll Down:=10
    Range("A333").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-103
    Range("A32").Select
    ActiveSheet.Paste
    Range("D32").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[301]C"
    Range("D33").Select
    ActiveWindow.SmallScroll Down:=81
    Range("A333:B333").Select
    ActiveWindow.SmallScroll Down:=5
    Range("A334:A335").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-20
    Range("A231").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-1
    Range("D231").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[103]C"
    Range("D232").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("D231").Select
    Selection.AutoFill Destination:=Range("D231:D232"), Type:=xlFillDefault
    Range("D231:D232").Select
    ActiveWindow.SmallScroll Down:=15
    Rows("331:335").Select
    Selection.EntireRow.Hidden = True
    Range("A336").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-54
    Range("A81").Select
    ActiveSheet.Paste
    Range("D81").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[255]C"
    Range("D82").Select
    ActiveWindow.SmallScroll Down:=13
    Range("A233").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    ActiveWindow.SmallScroll Down:=31
    Range("A344").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-37
    Range("A233").Select
    ActiveSheet.Paste
    Range("D233").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[111]C"
    Range("D234").Select
    ActiveWindow.SmallScroll Down:=13
    Range("A343:B344").Select
    ActiveWindow.SmallScroll Down:=-5
    Range("A345").Select
    Selection.Copy
    Range("A248").Select
    ActiveSheet.Paste
    Range("D248").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[97]C"
    Range("D249").Select
    ActiveWindow.SmallScroll ToRight:=-3
    Range("A346").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-19
    Range("A234").Select
    ActiveSheet.Paste
    Range("D234").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[112]C"
    Range("D235").Select
    ActiveWindow.SmallScroll Down:=24
    Range("A347").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-13
    Range("A253").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=16
    Range("A354").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-18
    Range("A254").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=35
    Range("A368").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-30
    Range("A255").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=1
    Range("D253").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[100]C"
    Range("D254").Select
    ActiveCell.FormulaR1C1 = "=+R[106]C"
    Range("D255").Select
    ActiveCell.FormulaR1C1 = "=+R[112]C"
    Range("D256").Select
    ActiveWindow.SmallScroll Down:=12
    Range("A361").Select
    ActiveWindow.SmallScroll Down:=-38
    Range("A255").Select
    Selection.EntireRow.Insert
    ActiveWindow.SmallScroll Down:=24
    Range("A362").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-21
    Range("A255").Select
    ActiveSheet.Paste
    Range("D254").Select
    ActiveWindow.SmallScroll Down:=5
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[107]C"
    Range("D255").Select
    ActiveCell.FormulaR1C1 = "=+R[113]C"
    Range("D256").Select
    ActiveCell.FormulaR1C1 = "=+R[121]C"
    Range("A378").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-55
    Range("A235").Select
    ActiveSheet.Paste
    Range("D235").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[143]C"
    Range("D236").Select
    ActiveWindow.SmallScroll Down:=45
    Range("A379").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-137
    Range("A33").Select
    ActiveSheet.Paste
    Range("D33").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[346]C"
    Range("D34").Select
    ActiveWindow.SmallScroll Down:=122
    Range("A378:B379").Select
    ActiveWindow.SmallScroll Down:=-20
    Rows("344:385").Select
    Selection.EntireRow.Hidden = True
    Range("A386:A387").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-24
    Range("A236").Select
    ActiveSheet.Paste
    Range("D236").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[150]C"
    Range("D237").Select
    ActiveWindow.SmallScroll Down:=-5
    ActiveWindow.SmallScroll ToRight:=1
    ActiveWindow.SmallScroll Down:=-1
    ActiveWindow.SmallScroll ToRight:=-11
    Range("D236").Select
    Selection.AutoFill Destination:=Range("D236:D237"), Type:=xlFillDefault
    Range("D236:D237").Select
    ActiveWindow.SmallScroll Down:=22
    Range("A386:B387").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("A388").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-8
    Range("A249").Select
    ActiveSheet.Paste
    Range("D249").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[143]C"
    Range("A388:B392").Select
    ActiveWindow.SmallScroll Down:=12
    Range("A393").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-10
    Range("A250").Select
    ActiveSheet.Paste
    Range("A251").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("D250").Select
    ActiveCell.FormulaR1C1 = "=+R[148]C"
    Range("D251").Select
    ActiveWindow.SmallScroll Down:=12
    Rows("391:398").Select
    Selection.EntireRow.Hidden = True
    Range("A399:A400").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-28
    Range("A238").Select
    ActiveWindow.SmallScroll Down:=18
    Range("A399").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-109
    Range("A34").Select
    ActiveSheet.Paste
    Range("D34").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[365]C"
    Range("D35").Select
    ActiveWindow.SmallScroll Down:=102
    Range("A400").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-24
    Range("A238").Select
    ActiveSheet.Paste
    Range("D238").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[162]C"
    Range("D239").Select
    ActiveWindow.SmallScroll Down:=24
    Range("A401").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-72
    Range("A82").Select
    ActiveSheet.Paste
    Range("D82").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[319]C"
    Range("D83").Select
    ActiveWindow.SmallScroll Down:=49
    Range("A402:A403").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-25
    Range("A239").Select
    ActiveSheet.Paste
    Range("A241").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("D239").Select
    ActiveCell.FormulaR1C1 = "=+R[168]C"
    Range("D240").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("D240").Select
    ActiveCell.FormulaR1C1 = "=+R[172]C"
    Range("D241").Select
    ActiveWindow.SmallScroll Down:=24
    Range("A407:B412").Select
    ActiveWindow.SmallScroll Down:=-29
    Range("D240").Select
    ActiveWindow.SmallScroll Down:=32
    Range("A413").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-71
    Range("A83").Select
    ActiveSheet.Paste
    Range("D83").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[330]C"
    Range("D84").Select
    ActiveWindow.SmallScroll Down:=55
    Rows("404:413").Select
    Selection.EntireRow.Hidden = True
    Range("A414").Select
    ActiveWindow.SmallScroll Down:=-9
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-90
    Range("A46").Select
    Application.CutCopyMode = False
    Rows("46:46").Select
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    ActiveWindow.SmallScroll Down:=16
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=90
    Range("A416").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-113
    Range("A46").Select
    ActiveSheet.Paste
    Range("F46").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[370]C"
    Range("F47").Select
    ActiveWindow.SmallScroll Down:=-129
    Range("A35").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    ActiveWindow.SmallScroll Down:=13
    Range("A49").Select
    Selection.Copy
    Range("A51").Select
    ActiveSheet.Paste
    Range("A49").Select
    ActiveWindow.SmallScroll Down:=112
    Range("A421").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-74
    Range("A90").Select
    ActiveSheet.Paste
    Range("A91").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    ActiveWindow.SmallScroll Down:=72
    Range("A426").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-64
    Range("A91").Select
    ActiveSheet.Paste
    Range("D90").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[335]C"
    Range("D91").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("D90").Select
    Selection.AutoFill Destination:=Range("D90:D91"), Type:=xlFillDefault
    Range("D90:D91").Select
    Range("A91").Select
    ActiveWindow.SmallScroll Down:=67
    Rows("424:432").Select
    Selection.EntireRow.Hidden = True
    Range("A433:A436").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-30
    Range("A251").Select
    ActiveSheet.Paste
    Range("D251").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[182]C"
    Range("D252").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("D251").Select
    Selection.AutoFill Destination:=Range("D251:D253"), Type:=xlFillDefault
    Range("D251:D253").Select
    Range("D254").Select
    ActiveCell.FormulaR1C1 = "=+R[185]C"
    Range("D255").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("D253").Select
    ActiveWindow.SmallScroll Down:=38
    Range("D435").Select
    ActiveWindow.SmallScroll Down:=-7
    Rows("436:436").Select
    Rows("433:440").Select
    Selection.EntireRow.Hidden = True
    Range("A441").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-36
    Range("A255").Select
    ActiveSheet.Paste
    Range("D255").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[192]C"
    Range("D256").Select
    ActiveWindow.SmallScroll Down:=19
    ActiveWindow.SmallScroll ToRight:=-25
    Rows("441:449").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=-7
    Range("A450").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-20
    Range("A256").Select
    ActiveSheet.Paste
    Range("A257").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("D256").Select
    ActiveCell.FormulaR1C1 = "=+R[200]C"
    Range("D257").Select
    ActiveWindow.SmallScroll Down:=11
    Range("A457").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-23
    Range("A257").Select
    ActiveSheet.Paste
    Range("D257").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[200]C"
    Range("D258").Select
    ActiveWindow.SmallScroll Down:=19
    Range("A460").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-31
    Range("A258").Select
    ActiveSheet.Paste
    Range("D258").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[202]C"
    Range("D259").Select
    ActiveWindow.SmallScroll Down:=22
    Rows("456:461").Select
    Selection.EntireRow.Hidden = True
    Range("A466").Select
    ActiveWindow.SmallScroll Down:=-88
    Range("A79").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("A89").Select
    ActiveWindow.SmallScroll Down:=97
    Range("A474:A482").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-92
    Range("A78").Select
    ActiveSheet.Paste
    Range("D77").Select
    Application.CutCopyMode = False
    Range("D78").Select
    ActiveCell.FormulaR1C1 = "=+R[396]C"
    Range("D79").Select
    ActiveWindow.SmallScroll Down:=-11
    Range("D78").Select
    Rows("474:483").Select
    Selection.EntireRow.Hidden = True
    Range("A485").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-86
    Range("A100").Select
    ActiveSheet.Paste
    Range("D100").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[385]C"
    Range("D101").Select
    ActiveWindow.SmallScroll Down:=84
    Range("A485:B485").Select
    ActiveWindow.SmallScroll Down:=-5
    Rows("485:485").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=-8
    Rows("470:470").Select
    Selection.EntireRow.Hidden = True
    Rows("471:488").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=-37
    Range("A267").Select
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    ActiveCell.FormulaR1C1 = "Total G&A"
    Range("A277").Select
    ActiveCell.FormulaR1C1 = "Total Marketing "
    Range("A288").Select
    ActiveCell.FormulaR1C1 = "Total Motor Vehicle "
    Range("A293").Select
    ActiveCell.FormulaR1C1 = "Total Salaries"
    Range("A294").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("A279").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Range("A268").Select
    ActiveWindow.SmallScroll Down:=-39
    Range("A105").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=28
    Range("A268").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=13
    Range("A278").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=5
    Range("A291").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A286").Select
    Selection.EntireRow.Insert
    Range("A292").Select
    Selection.Copy
    Range("A286").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-55
    Rows("106:106").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Selection.Delete Shift:=xlUp
    Selection.Delete Shift:=xlUp
    Selection.Delete Shift:=xlUp
    Selection.Delete Shift:=xlUp
    Range("A101").Select
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    ActiveCell.FormulaR1C1 = "Total Other Expenses"
    Range("A102").Select
    Selection.EntireRow.Delete
    ActiveWindow.SmallScroll Down:=-1
    ActiveWindow.SmallScroll ToRight:=1
    ActiveWindow.SmallScroll Down:=-5
    ActiveWindow.SmallScroll ToRight:=-62
    Range("A87").Select
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    ActiveWindow.SmallScroll Down:=-17
    Range("A74").Select
    ActiveWindow.SmallScroll Down:=-20
    Range("A56").Select
    ActiveWindow.SmallScroll Down:=-4
    Range("A43").Select
    ActiveCell.FormulaR1C1 = "Staff Costs "
    Range("A56").Select
    Selection.EntireRow.Delete
    ActiveWindow.SmallScroll Down:=-16
    Range("A35").Select
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    ActiveWindow.SmallScroll Down:=-17
    Rows("18:18").Select
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Range("A9").Select
    Selection.EntireRow.Insert
    Range("A9").Select
    ActiveCell.FormulaR1C1 = "Food & Beverage "
    Range("A9").Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Selection.Font.ColorIndex = 0
    Range("A9").Select
    Selection.Font.ColorIndex = 0
    Range("A21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("A26").Select
    ActiveCell.FormulaR1C1 = "Consumables & Replacements"
    Range("A26").Select
    Selection.Copy
    Range("A22").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Consumables"
    Range("A23").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    ActiveWindow.SmallScroll Down:=8
    Range("A26").Select
    ActiveWindow.SmallScroll Down:=-6
    Rows("11:11").Select
    Selection.Cut
    Range("A23").Select
    ActiveSheet.Paste
    Range("A26").Select
    ActiveCell.FormulaR1C1 = "Other Expenses"
    Range("A27").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("A26").Select
    Selection.Font.Bold = True
    ActiveWindow.SmallScroll Down:=-3
    Rows("12:12").Select
    Selection.Cut
    Range("A27").Select
    ActiveSheet.Paste
    Range("A24").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Rows("13:13").Select
    Selection.Cut
    Range("A24").Select
    ActiveSheet.Paste
    Range("A11").Select
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Rows("15:15").Select
    Selection.Cut
    Range("A22").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=6
    Range("A29").Select
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Rows("31:31").Select
    Selection.Cut
    Range("A15").Select
    ActiveSheet.Paste
    Rows("31:31").Select
    Selection.Delete Shift:=xlUp
    Rows("30:30").Select
    Selection.Cut
    Range("A23").Select
    ActiveSheet.Paste
    Rows("23:23").Select
    Selection.Insert Shift:=xlDown
    Rows("35:35").Select
    Selection.Cut
    Range("A23").Select
    ActiveSheet.Paste
    Range("A29").Select
    ActiveWindow.SmallScroll Down:=2
    Range("A31").Select
    Selection.EntireRow.Delete
    Range("A34").Select
    Selection.EntireRow.Delete
    ActiveWindow.SmallScroll Down:=5
    Range("A44").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    ActiveWindow.SmallScroll Down:=-14
    Range("A16").Select
    ActiveWindow.SmallScroll Down:=8
    Rows("30:30").Select
    Selection.Cut
    Range("A25").Select
    ActiveSheet.Paste
    Range("A30").Select
    Selection.EntireRow.Delete
    ActiveWindow.SmallScroll Down:=-22
    Rows("11:11").Select
    Selection.Insert Shift:=xlDown
    Rows("16:16").Select
    Selection.Cut
    Range("A11").Select
    ActiveSheet.Paste
    ActiveCell.FormulaR1C1 = "Food To Go - Retail"
    Range("A16").Select
    ActiveCell.FormulaR1C1 = "Total F&B"
    Rows("16:16").Select
    Selection.Font.Bold = True
    ActiveWindow.SmallScroll Down:=9
    Range("A18").Select
    Selection.EntireRow.Delete
    ActiveWindow.SmallScroll Down:=15
    Range("A47").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-20
    Range("A17").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=4
    Range("A26").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Total Consumables"
    Range("A27").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=17
    Range("A45").Select
    ActiveCell.FormulaR1C1 = "Total Other Expenses"
    Range("A46").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-35
    Rows("20:20").Select
    Selection.Insert Shift:=xlDown
    Rows("26:26").Select
    Selection.Cut
    Range("A20").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=4
    Range("A26").Select
    Selection.EntireRow.Delete
    ActiveWindow.SmallScroll Down:=9
    Rows("31:31").Select
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Rows("41:41").Select
    Selection.Cut
    Range("A31").Select
    ActiveSheet.Paste
    Rows("42:42").Select
    Selection.Cut
    Range("A32").Select
    ActiveSheet.Paste
    Range("A33").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Rows("38:40").Select
    Selection.Cut
    Range("A33").Select
    ActiveSheet.Paste
    Range("A36").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    ActiveWindow.SmallScroll Down:=10
    Rows("48:51").Select
    Selection.Cut
    Range("A36").Select
    ActiveSheet.Paste
    Rows("52:52").Select
    Selection.Cut
    Range("A40").Select
    ActiveSheet.Paste
    Range("A41").Select
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Range("A44").Select
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    ActiveWindow.SmallScroll Down:=16
    Range("A53").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Rows("57:57").Select
    Selection.Cut
    Range("A53").Select
    ActiveSheet.Paste
    Rows("59:59").Select
    Selection.Cut
    Range("A54").Select
    ActiveSheet.Paste
    Range("A57:A60").Select
    Selection.EntireRow.Delete
    ActiveWindow.SmallScroll Down:=-222
    Cells.Select
    With Selection.Font
        .Name = "Arial"
        .Size = 8
        .StrikeThrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
    End With
    With Selection.Font
        .Name = "Arial"
        .Size = 9
        .StrikeThrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
    End With
    ActiveWindow.Zoom = 125
    Range("B7").Select
    ActiveWindow.SmallScroll Down:=-14
    Columns("H:H").ColumnWidth = 9.5
    ActiveWindow.SmallScroll Down:=-124
    Cells.Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=21
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=1
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=232
    ActiveWindow.SmallScroll ToRight:=-94
    ActiveWindow.SmallScroll Down:=-451
    Cells.Select
    Selection.Font.Bold = True
    Selection.Font.Bold = False
    Cells.Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("A1:I479").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    ActiveWindow.SmallScroll Down:=444
    Range("A461:A478").Select
    Selection.Font.ColorIndex = 0
    ActiveWindow.SmallScroll Down:=-916
    Rows("1:1").Select
    Selection.Font.Bold = True
    ActiveWindow.SmallScroll Down:=-113
    Range("D3").Select
    ActiveWindow.SmallScroll Down:=102
    Range("F130").Select
    ActiveWindow.SmallScroll Down:=-158
    Range("D4").Select
    ActiveWindow.SmallScroll Down:=110
    Range("A131:I150").Select
    ActiveWindow.SmallScroll Down:=8
    Range("D150").Select
    ActiveWindow.SmallScroll Down:=-130
    Range("F11").Select
    ActiveWindow.SmallScroll Down:=-178
    Range("G12").Select
    ActiveWindow.SmallScroll Down:=-168
    Range("G12").Select
    ActiveWindow.SmallScroll Down:=142
    Range("A172:I177").Select
    ActiveWindow.SmallScroll Down:=-237
    Range("F13").Select
    ActiveWindow.SmallScroll Down:=32
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=125
    Range("G210").Select
    ActiveWindow.SmallScroll Down:=-289
    Range("G14").Select
    ActiveWindow.SmallScroll Down:=185
    Range("A205:I210").Select
    ActiveWindow.SmallScroll Down:=15
    Range("A223").Select
    ActiveWindow.SmallScroll Down:=-383
    Range("G15").Select
    ActiveWindow.SmallScroll Down:=190
    Range("A211:I223").Select
    ActiveWindow.SmallScroll Down:=-232
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=41
    ActiveWindow.SmallScroll ToRight:=-6
    ActiveWindow.SmallScroll Down:=-65
    Range("A30").Select
    Selection.Font.Bold = True
    Range("A19").Select
    Selection.Font.Bold = True
    ActiveWindow.SmallScroll Down:=-43
    Range("A16").Select
    Selection.EntireRow.Insert
    ActiveWindow.SmallScroll Down:=195
    Range("A225").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-217
    Range("A16").Select
    ActiveSheet.Paste
    Range("F16").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=+R[212]C"
    Range("F17").Select
    ActiveWindow.SmallScroll Down:=199
    Range("A225:I228").Select
    ActiveWindow.SmallScroll Down:=-200
    Range("G24").Select
    ActiveWindow.SmallScroll Down:=184
    ActiveWindow.SmallScroll ToRight:=-1
    Range("A230:I231").Select
    ActiveWindow.SmallScroll Down:=-55
    Range("D152").Select
    ActiveWindow.SmallScroll Down:=-130
    Range("G22").Select
    ActiveWindow.SmallScroll Down:=118
    Range("D154").Select
    ActiveWindow.SmallScroll Down:=-169
    Range("F45").Select
    ActiveWindow.SmallScroll Down:=6
    Range("A41").Select
    ActiveWindow.SmallScroll Down:=12
    Range("A41").Select
    ActiveWindow.SmallScroll Down:=-1
    Selection.EntireRow.Insert
    ActiveCell.FormulaR1C1 = "Other Expenses "
    Range("D41").Select
    ActiveCell.FormulaR1C1 = "=+R[114]C"
    Range("D42").Select
    ActiveWindow.SmallScroll Down:=94
    Range("D173").Select
    ActiveWindow.SmallScroll Down:=-295
    Range("G23").Select
    ActiveWindow.SmallScroll Down:=142
    Range("A157:I173").Select
    ActiveWindow.SmallScroll Down:=22
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=43
    ActiveWindow.SmallScroll ToRight:=1
    ActiveWindow.SmallScroll Down:=-11
    ActiveWindow.SmallScroll ToRight:=-95
    ActiveWindow.SmallScroll Down:=-107
    Range("A111:I112").Select
    ActiveWindow.SmallScroll Down:=82
    ActiveWindow.SmallScroll ToRight:=-9
    ActiveWindow.SmallScroll Down:=1
    ActiveWindow.SmallScroll ToRight:=-2
    ActiveWindow.SmallScroll Down:=1
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=-88
    Rows("109:109").Select
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    ActiveWindow.SmallScroll Down:=43
    Range("B156").Select
    ActiveWindow.SmallScroll Down:=-28
    Rows("109:136").Select
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    ActiveWindow.SmallScroll Down:=198
    Rows("317:374").Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-90
    ActiveWindow.SmallScroll ToRight:=-84
    ActiveWindow.SmallScroll Down:=-115
    Range("A110").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=66
    Range("A169:A193").Select
    Selection.EntireRow.Delete
    ActiveWindow.SmallScroll Down:=6
    Range("A171").Select
    Selection.Font.ColorIndex = 0
    ActiveWindow.SmallScroll Down:=-319
    Cells.Select
    Selection.EntireRow.Hidden = False
    Range("B8").Select
    ActiveWindow.SmallScroll Down:=144
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=7
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=121
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=11
    ActiveWindow.SmallScroll ToRight:=-42
    ActiveWindow.SmallScroll Down:=-381
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=188
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=20
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=39
    ActiveWindow.SmallScroll ToRight:=-123
    ActiveWindow.SmallScroll Down:=-450
    Cells.Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=264
    Range("A292:A350").Select
    Selection.EntireRow.Delete
    ActiveWindow.SmallScroll Down:=-318
    Range("A484").Select
    ActiveWindow.SmallScroll Down:=-308
    Range("A168").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("A163").Select
    Selection.Copy
    Range("A169").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Reconcilation"
    Range("A170").Select
    ActiveCell.FormulaR1C1 = "Net Profit - Dashboard"
    Range("A171").Select
    ActiveCell.FormulaR1C1 = "Net Profit - Reckon"
    Range("D170").Select
    ActiveCell.FormulaR1C1 = "=+R[-63]C"
    Range("D171").Select
    ActiveCell.FormulaR1C1 = "=+R[314]C"
    Range("D172").Select
    ActiveWindow.SmallScroll Down:=-386
    Range("A172").Select
    ActiveCell.FormulaR1C1 = "Balance "
    Range("D172").Select
    ActiveCell.FormulaR1C1 = "=+R[-2]C-R[-1]C"
    Range("A169").Select
    Selection.Font.ColorIndex = 0
    Selection.Font.Bold = True
    Range("B171").Select
    ActiveWindow.SmallScroll Down:=-362
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Holy Smoke "
    Range("A1").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    With Selection.Font
        .Name = "Arial"
        .Size = 12
        .StrikeThrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
    End With
    Range("B1").Select
    ActiveWindow.SmallScroll Down:=-262
    Range("A6:I6").Select
    Selection.Font.Bold = True
    Range("D5").Select
    Selection.AutoFill Destination:=Range("D5:H5"), Type:=xlFillDefault
    Range("D5:H5").Select
    Range("I3").Select
    Selection.AutoFill Destination:=Range("I3:I6"), Type:=xlFillDefault
    Range("I3:I6").Select
    Selection.Font.Bold = True
    Range("B6").Select
    Selection.EntireColumn.Hidden = True
    Range("A9").Select
    Selection.Font.Bold = True
    Range("G10").Select
    Selection.AutoFill Destination:=Range("G10:H10"), Type:=xlFillDefault
    Range("G10:H10").Select
    Range("G10").Select
    Selection.AutoFill Destination:=Range("D10:G10"), Type:=xlFillDefault
    Range("D10:G10").Select
    Range("F11").Select
    Selection.AutoFill Destination:=Range("F11:H11"), Type:=xlFillDefault
    Range("F11:H11").Select
    Range("F11").Select
    Selection.AutoFill Destination:=Range("D11:F11"), Type:=xlFillDefault
    Range("D11:F11").Select
    Range("G12").Select
    Selection.AutoFill Destination:=Range("G12:H12"), Type:=xlFillDefault
    Range("G12:H12").Select
    Range("F13").Select
    Selection.AutoFill Destination:=Range("F13:H13"), Type:=xlFillDefault
    Range("F13:H13").Select
    ActiveWindow.SmallScroll ToRight:=-3
    Range("G12").Select
    Selection.AutoFill Destination:=Range("D12:G12"), Type:=xlFillDefault
    Range("D12:G12").Select
    Range("F13").Select
    Selection.AutoFill Destination:=Range("D13:F13"), Type:=xlFillDefault
    Range("D13:F13").Select
    Range("G14").Select
    Selection.AutoFill Destination:=Range("G14:H14"), Type:=xlFillDefault
    Range("G14:H14").Select
    Range("G14").Select
    Selection.AutoFill Destination:=Range("D14:G14"), Type:=xlFillDefault
    Range("D14:G14").Select
    Range("G15").Select
    Selection.AutoFill Destination:=Range("G15:H15"), Type:=xlFillDefault
    Range("G15:H15").Select
    Range("G15").Select
    Selection.AutoFill Destination:=Range("D15:G15"), Type:=xlFillDefault
    Range("D15:G15").Select
    Range("F16").Select
    Selection.AutoFill Destination:=Range("F16:H16"), Type:=xlFillDefault
    Range("F16:H16").Select
    Range("F16").Select
    Selection.AutoFill Destination:=Range("D16:F16"), Type:=xlFillDefault
    Range("D16:F16").Select
    Rows("17:18").Select
    Selection.Font.Bold = True
    Range("D17").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-7]C:R[-1]C)"
    Range("D17").Select
    Selection.AutoFill Destination:=Range("D17:H17"), Type:=xlFillDefault
    Range("D17:H17").Select
    Range("I4").Select
    Selection.Copy
    Range("I10").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("I10:I17"), Type:=xlFillDefault
    Range("I10:I17").Select
    Range("F18").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C/R[-12]C"
    Range("F18").Select
    Selection.Style = "Percent"
    Selection.NumberFormat = "0.0%"
    Selection.AutoFill Destination:=Range("F18:H18"), Type:=xlFillDefault
    Range("F18:H18").Select
    Selection.AutoFill Destination:=Range("F18:I18"), Type:=xlFillDefault
    Range("F18:I18").Select
    Range("F18").Select
    Selection.AutoFill Destination:=Range("D18:F18"), Type:=xlFillDefault
    Range("D18:F18").Select
    Range("D2:I172").Select
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Range("D18").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D18").Select
    ActiveCell.FormulaR1C1 = "=IF(R[-12]C=0,0,R[-1]C/R[-12]C)"
    Range("D18").Select
    Selection.AutoFill Destination:=Range("D18:I18"), Type:=xlFillDefault
    Range("D18:I18").Select
    Range("D18").Select
    ActiveCell.FormulaR1C1 = "=IF(R6C=0,0,R[-1]C/R6C)"
    Range("D18").Select
    Selection.AutoFill Destination:=Range("D18:I18"), Type:=xlFillDefault
    Range("D18:I18").Select
    Range("D27").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)"
    Range("F21").Select
    Selection.AutoFill Destination:=Range("F21:H21"), Type:=xlFillDefault
    Range("F21:H21").Select
    Range("G22").Select
    Selection.AutoFill Destination:=Range("G22:H22"), Type:=xlFillDefault
    Range("G22:H22").Select
    Range("G23").Select
    Selection.AutoFill Destination:=Range("G23:H23"), Type:=xlFillDefault
    Range("G23:H23").Select
    Range("G24").Select
    Selection.AutoFill Destination:=Range("G24:H24"), Type:=xlFillDefault
    Range("G24:H24").Select
    Range("G25").Select
    Selection.AutoFill Destination:=Range("G25:H25"), Type:=xlFillDefault
    Range("G25:H25").Select
    Range("F26").Select
    Selection.AutoFill Destination:=Range("F26:H26"), Type:=xlFillDefault
    Range("F26:H26").Select
    Range("D27").Select
    Selection.AutoFill Destination:=Range("D27:H27"), Type:=xlFillDefault
    Range("D27:H27").Select
    Range("H21:H26").Select
    Selection.AutoFill Destination:=Range("D21:H26"), Type:=xlFillDefault
    Range("D21:H26").Select
    Rows("27:28").Select
    Selection.Font.Bold = True
    Range("D18:I18").Select
    Selection.Copy
    Range("D28").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=27
    Range("D47").Select
    ActiveSheet.Paste
    Range("D50").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=10
    Range("D58").Select
    ActiveSheet.Paste
    Range("D64").Select
    ActiveSheet.Paste
    Range("D67").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=6
    Range("D70").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=10
    Range("D78").Select
    ActiveSheet.Paste
    Range("D81").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=25
    Range("D108").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=40
    Range("D143").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=7
    Range("D153").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=10
    Range("D161").Select
    ActiveSheet.Paste
    Range("D167").Select
    ActiveSheet.Paste
    Rows("166:167").Select
    Selection.Font.Bold = True
    Rows("160:161").Select
    Selection.Font.Bold = True
    Rows("142:143").Select
    Selection.Font.Bold = True
    ActiveWindow.SmallScroll Down:=-40
    Rows("107:108").Select
    Selection.Font.Bold = True
    ActiveWindow.SmallScroll Down:=-23
    Rows("105:105").Select
    Selection.Font.Bold = True
    Rows("93:93").Select
    Selection.Font.Bold = True
    Rows("77:81").Select
    Selection.Font.Bold = True
    ActiveWindow.SmallScroll Down:=-13
    Rows("63:70").Select
    Selection.Font.Bold = True
    ActiveWindow.SmallScroll Down:=-19
    Range("A57:I58").Select
    Selection.Font.Bold = True
    Rows("49:50").Select
    Selection.Font.Bold = True
    Rows("46:47").Select
    Selection.Font.Bold = True
    ActiveWindow.SmallScroll Down:=-37
    Range("F32:F36").Select
    Selection.AutoFill Destination:=Range("F32:H36"), Type:=xlFillDefault
    Range("F32:H36").Select
    Range("F32:F36").Select
    Selection.AutoFill Destination:=Range("D32:F36"), Type:=xlFillDefault
    Range("D32:F36").Select
    ActiveWindow.SmallScroll Down:=7
    Range("G37").Select
    Selection.AutoFill Destination:=Range("G37:H37"), Type:=xlFillDefault
    Range("G37:H37").Select
    Range("G37").Select
    Selection.AutoFill Destination:=Range("D37:G37"), Type:=xlFillDefault
    Range("D37:G37").Select
    Range("D38:D42").Select
    Selection.AutoFill Destination:=Range("D38:H42"), Type:=xlFillDefault
    Range("D38:H42").Select
    Range("F43:F45").Select
    Selection.AutoFill Destination:=Range("F43:H45"), Type:=xlFillDefault
    Range("F43:H45").Select
    Range("F43:F45").Select
    Selection.AutoFill Destination:=Range("D43:F45"), Type:=xlFillDefault
    Range("D43:F45").Select
    ActiveWindow.SmallScroll Down:=10
    Range("D46").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-14]C:R[-1]C)"
    Range("D46").Select
    Selection.AutoFill Destination:=Range("D46:H46"), Type:=xlFillDefault
    Range("D46:H46").Select
    ActiveWindow.SmallScroll Down:=6
    Range("D49").Select
    ActiveCell.FormulaR1C1 = "=+R[-3]C+R[-22]C"
    Range("D50").Select
    ActiveWindow.SmallScroll Down:=6
    Range("D49").Select
    Selection.AutoFill Destination:=Range("D49:H49"), Type:=xlFillDefault
    Range("D49:H49").Select
    ActiveWindow.SmallScroll Down:=4
    Range("D50").Select
    ActiveWindow.SmallScroll Down:=4
    Range("F54:F56").Select
    Selection.AutoFill Destination:=Range("F54:H56"), Type:=xlFillDefault
    Range("F54:H56").Select
    Range("F54:F56").Select
    Selection.AutoFill Destination:=Range("D54:F56"), Type:=xlFillDefault
    Range("D54:F56").Select
    Range("D57").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
    Range("D57").Select
    Selection.AutoFill Destination:=Range("D57:H57"), Type:=xlFillDefault
    Range("D57:H57").Select
    ActiveWindow.SmallScroll Down:=5
    Range("F59:F62").Select
    Selection.AutoFill Destination:=Range("F59:H62"), Type:=xlFillDefault
    Range("F59:H62").Select
    Range("F59:F62").Select
    Selection.AutoFill Destination:=Range("D59:F62"), Type:=xlFillDefault
    Range("D59:F62").Select
    Range("D63").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C+R[-6]C)"
    Range("D63").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)+R[-6]C"
    Range("D63").Select
    Selection.AutoFill Destination:=Range("D63:H63"), Type:=xlFillDefault
    Range("D63:H63").Select
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=-1
    ActiveWindow.SmallScroll ToRight:=-2
    ActiveWindow.SmallScroll Down:=6
    Range("D66").Select
    ActiveCell.FormulaR1C1 = "=+R[-3]C+R[-17]C"
    Range("D66").Select
    Selection.AutoFill Destination:=Range("D66:H66"), Type:=xlFillDefault
    Range("D66:H66").Select
    ActiveWindow.SmallScroll Down:=-27
    Range("D49").Select
    ActiveCell.FormulaR1C1 = "=+R[-3]C+R[-22]C+R[-32]C"
    Range("D50").Select
    ActiveWindow.SmallScroll Down:=16
    Range("D49").Select
    Selection.AutoFill Destination:=Range("D49:H49"), Type:=xlFillDefault
    Range("D49:H49").Select
    ActiveWindow.SmallScroll Down:=14
    Range("D69").Select
    ActiveCell.FormulaR1C1 = "=+R[-63]C-R[-3]C"
    Range("D69").Select
    Selection.AutoFill Destination:=Range("D69:H69"), Type:=xlFillDefault
    Range("D69:H69").Select
    ActiveWindow.SmallScroll Down:=11
    Range("D73").Select
    ActiveCell.FormulaR1C1 = "=+R[69]C"
    Range("D74").Select
    ActiveWindow.SmallScroll Down:=-10
    Range("D74").Select
    ActiveCell.FormulaR1C1 = "=+R[78]C"
    Range("D75").Select
    ActiveCell.FormulaR1C1 = "=+R[85]C"
    Range("D76").Select
    ActiveCell.FormulaR1C1 = "=+R[90]C"
    Range("D77").Select
    ActiveWindow.SmallScroll Down:=-29
    Range("D77").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
    Range("D73:D77").Select
    Selection.AutoFill Destination:=Range("D73:H77"), Type:=xlFillDefault
    Range("D73:H77").Select
    ActiveWindow.SmallScroll Down:=10
    Range("D80").Select
    ActiveCell.FormulaR1C1 = "=+R[-11]C-R[-3]C"
    Range("D80").Select
    Selection.AutoFill Destination:=Range("D80:H80"), Type:=xlFillDefault
    Range("D80:H80").Select
    ActiveWindow.SmallScroll Down:=9
    Range("D93").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-9]C:R[-1]C)"
    Range("D94").Select
    ActiveWindow.SmallScroll Down:=10
    Range("D105").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-9]C:R[-1]C)"
    Range("D107").Select
    ActiveCell.FormulaR1C1 = "=+R[-27]C+R[-14]C-R[-2]C"
    Range("A93").Select
    ActiveCell.FormulaR1C1 = "Total Other Income"
    Range("D84:D108").Select
    Selection.AutoFill Destination:=Range("D84:H108"), Type:=xlFillDefault
    Range("D84:H108").Select
    ActiveWindow.SmallScroll Down:=23
    Range("D142").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-31]C:R[-1]C)"
    Range("D143").Select
    ActiveWindow.SmallScroll Down:=19
    Range("D152").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)"
    Range("D160").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
    Range("D161").Select
    ActiveWindow.SmallScroll Down:=13
    Range("D166").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
    Range("D165").Select
    ActiveWindow.SmallScroll Down:=-39
    Range("D111:D167").Select
    Selection.AutoFill Destination:=Range("D111:H167"), Type:=xlFillDefault
    Range("D111:H167").Select
    ActiveWindow.SmallScroll Down:=-196
    Range("I10").Select
    Selection.Copy
    Range("I21").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=10
    Range("I32").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=17
    Range("I46").Select
    ActiveSheet.Paste
    Range("I49").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=7
    Range("I57").Select
    ActiveSheet.Paste
    Range("I63").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=10
    Range("I66").Select
    ActiveSheet.Paste
    Range("I77").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=14
    Range("I80").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=8
    Range("I93").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=12
    Range("I105").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=6
    Range("I107").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=32
    Range("I142").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=9
    Range("I152").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=8
    Range("I160").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=3
    Range("I166").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=5
    Range("I170").Select
    ActiveSheet.Paste
    Range("I171").Select
    ActiveSheet.Paste
    Range("I172").Select
    ActiveSheet.Paste
    Range("D170:D172").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("D170:H172"), Type:=xlFillDefault
    Range("D170:H172").Select
    Rows("173:173").Select
    Selection.Font.Bold = True
    Range("D176").Select
    ActiveWindow.SmallScroll Down:=-3
    Range("D164").Select
    ActiveWindow.SmallScroll Down:=-188
    Range("I21").Select
    ActiveWindow.SmallScroll Down:=10
    Range("I21").Select
    Selection.AutoFill Destination:=Range("I21:I27"), Type:=xlFillDefault
    Range("I21:I27").Select
    ActiveWindow.SmallScroll Down:=11
    Range("I32").Select
    Selection.AutoFill Destination:=Range("I32:I45"), Type:=xlFillDefault
    Range("I32:I45").Select
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.SmallScroll ToRight:=-1
    Range("I57").Select
    Selection.AutoFill Destination:=Range("I53:I57"), Type:=xlFillDefault
    Range("I53:I57").Select
    ActiveWindow.SmallScroll Down:=8
    Range("I63").Select
    Selection.AutoFill Destination:=Range("I59:I63"), Type:=xlFillDefault
    Range("I59:I63").Select
    ActiveWindow.SmallScroll Down:=11
    Range("I66").Select
    Selection.Copy
    Range("I69").Select
    ActiveSheet.Paste
    Range("I73").Select
    ActiveSheet.Paste
    Range("I84").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=26
    Range("I96").Select
    ActiveSheet.Paste
    Range("I111").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=46
    Range("I146").Select
    ActiveSheet.Paste
    Range("I156").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("I156:I159"), Type:=xlFillDefault
    Range("I156:I159").Select
    Range("I146").Select
    Selection.AutoFill Destination:=Range("I146:I151"), Type:=xlFillDefault
    Range("I146:I151").Select
    ActiveWindow.SmallScroll Down:=-25
    Range("I111").Select
    Selection.AutoFill Destination:=Range("I111:I141"), Type:=xlFillDefault
    Range("I111:I141").Select
    ActiveWindow.SmallScroll Down:=-47
    Range("I84").Select
    Selection.AutoFill Destination:=Range("I84:I92"), Type:=xlFillDefault
    Range("I84:I92").Select
    ActiveWindow.SmallScroll Down:=13
    Range("I96").Select
    Selection.AutoFill Destination:=Range("I96:I104"), Type:=xlFillDefault
    Range("I96:I104").Select
    ActiveWindow.SmallScroll Down:=-11
    Range("I73").Select
    Selection.AutoFill Destination:=Range("I73:I76"), Type:=xlFillDefault
    Range("I73:I76").Select
    ActiveWindow.SmallScroll Down:=62
    Rows("173:173").Select
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Range("A174").Select
    ActiveCell.FormulaR1C1 = "Super Distribution"
    Range("A175").Select
    ActiveWindow.SmallScroll Down:=-106
    Rows("54:54").Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=111
    Range("A175").Select
    ActiveSheet.Paste
    Range("A177").Select
    ActiveCell.FormulaR1C1 = "Payroll"
    Range("A178").Select
    ActiveWindow.SmallScroll ToRight:=-43
    Range("D177").Select
    ActiveWindow.SmallScroll Down:=-102
    Range("D53").Select
    ActiveWindow.SmallScroll Down:=121
    Range("D177").Select
    ActiveCell.FormulaR1C1 = "=+R[253]C"
    Range("D178").Select
    ActiveWindow.SmallScroll Down:=-21
    Range("D177").Select
    Selection.AutoFill Destination:=Range("D177:I177"), Type:=xlFillDefault
    Range("D177:I177").Select
    Range("A178").Select
    ActiveCell.FormulaR1C1 = "% to Total Payroll"
    Range("D178").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C/R[-1]C[5]"
    Range("D178").Select
    Selection.NumberFormat = "$#,##0.000;[Red]-$#,##0.000"
    Selection.Style = "Percent"
    Selection.NumberFormat = "0.0%"
    ActiveCell.FormulaR1C1 = "=+R[-1]C/R177C9"
    Range("D178").Select
    Selection.AutoFill Destination:=Range("D178:H178"), Type:=xlFillDefault
    Range("D178:H178").Select
    Range("I178").Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
    Range("A180").Select
    ActiveCell.FormulaR1C1 = "Super Distribution"
    Range("A180").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("A180").Select
    ActiveCell.FormulaR1C1 = "MD"
    Range("C180").Select
    ActiveCell.FormulaR1C1 = "38896"
    Range("C180").Select
    Selection.Font.ColorIndex = 0
    Selection.NumberFormat = "$#,##0.00;[Red]$#,##0.00"
    Selection.NumberFormat = "$#,##0.000;[Red]$#,##0.000"
    Selection.NumberFormat = "$#,##0.0000;[Red]$#,##0.0000"
    Selection.NumberFormat = "$#,##0.000;[Red]$#,##0.000"
    Selection.NumberFormat = "$#,##0.00;[Red]$#,##0.00"
    Selection.NumberFormat = "$#,##0.0;[Red]$#,##0.0"
    Selection.NumberFormat = "$#,##0;[Red]$#,##0"
    Columns("C:C").ColumnWidth = 9.5
    Columns("C:C").EntireColumn.AutoFit
    Range("C180").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 8
        .StrikeThrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
    End With
    Range("C165").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 8
        .StrikeThrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
    End With
    Range("C165").Select
    Selection.Font.Bold = True
    Range("C180").Select
    Selection.Font.Bold = True
    Range("C181").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C/12"
    Range("C181").Select
    Selection.NumberFormat = "$#,##0.00;[Red]$#,##0.00"
    Selection.NumberFormat = "$#,##0.0;[Red]$#,##0.0"
    Selection.NumberFormat = "$#,##0;[Red]$#,##0"
    Columns("C:C").EntireColumn.AutoFit
    Range("A180").Select
    ActiveCell.FormulaR1C1 = "MD - PA"
    Range("A180").Select
    Selection.AutoFill Destination:=Range("A180:A181"), Type:=xlFillDefault
    Range("A180:A181").Select
    Range("A181").Select
    ActiveCell.FormulaR1C1 = "MD - Month"
    Range("A182").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    ActiveWindow.SmallScroll Down:=-305
    Range("C2").Select
    ActiveWindow.FreezePanes = True
    Range("G2").Select
    ActiveWindow.SmallScroll Down:=162
    Range("G181").Select
    ActiveCell.FormulaR1C1 = "=+R[-4]C-RC[-4]"
    Range("D181").Select
    ActiveCell.FormulaR1C1 = "=+RC[-1]"
    Range("D182").Select
    ActiveCell.FormulaR1C1 = "=+R[-5]C+R[-1]C"
    Range("D182").Select
    Selection.AutoFill Destination:=Range("D182:H182"), Type:=xlFillDefault
    Range("D182:H182").Select
    Range("E182").Select
    ActiveCell.FormulaR1C1 = "=+R[-5]C"
    Range("F182").Select
    ActiveCell.FormulaR1C1 = "=+R[-5]C"
    Range("G182").Select
    ActiveCell.FormulaR1C1 = "=+R[-5]C-R[-1]C"
    Range("G181").Select
    ActiveCell.FormulaR1C1 = "=+RC[-4]"
    Range("H182").Select
    ActiveCell.FormulaR1C1 = "=+R[-5]C"
    Range("I177").Select
    Selection.Copy
    Range("I182").Select
    ActiveSheet.Paste
    Range("I177").Select
    Application.CutCopyMode = False
    Range("I177").Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
    Range("I177").Select
    Selection.Copy
    Range("I182").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A178").Select
    Selection.Copy
    Range("A182").Select
    Range("A183").Select
    ActiveSheet.Paste
    Range("A184").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Range("D183").Select
    ActiveCell.FormulaR1C1 = "=+R[-1]C/R182C9"
    Range("D183").Select
    Selection.Style = "Percent"
    Selection.NumberFormat = "0.0%"
    Selection.AutoFill Destination:=Range("D183:H183"), Type:=xlFillDefault
    Range("D183:H183").Select
    Range("I178").Select
    Selection.Copy
    Range("I183").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A182").Select
    ActiveCell.FormulaR1C1 = "Actual Payroll Distribution"
    Rows("182:183").Select
    Selection.Font.Bold = True
    Range("D186").Select
    ActiveCell.FormulaR1C1 = "=+R[-11]C[5]*R[-3]C"
    Range("D186").Select
    ActiveCell.FormulaR1C1 = "=+R175C9*R[-3]C"
    Range("D186").Select
    Selection.AutoFill Destination:=Range("D186:H186"), Type:=xlFillDefault
    Range("D186:H186").Select
    Range("I182").Select
    Selection.Copy
    Range("I186").Select
    ActiveSheet.Paste
    Range("A186:I186").Select
    Selection.Font.Bold = True
    Range("D186").Select
    ActiveWindow.SmallScroll Down:=-10
    Range("A164").Select
    Selection.EntireRow.Insert
    Range("A165").Select
    Selection.AutoFill Destination:=Range("A164:A165"), Type:=xlFillDefault
    Range("A164:A165").Select
    Range("A164").Select
    ActiveCell.FormulaR1C1 = "Admin"
    Range("D164").Select
    ActiveWindow.SmallScroll Down:=-130
    Range("D53").Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=107
    Range("D164").Select
    ActiveSheet.Paste
    Range("I156").Select
    Selection.Copy
    Range("I164").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("I164:I166"), Type:=xlFillDefault
    Range("I164:I166").Select
    Range("D165").Select
    ActiveCell.FormulaR1C1 = "=+R[17]C"
    Range("D166").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("D164").Select
    ActiveWindow.SmallScroll Down:=-117
    Range("E53").Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=100
    Range("E164").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-125
    Range("H53").Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=116
    Range("H164").Select
    ActiveSheet.Paste
    Range("D166").Select
    ActiveWindow.SmallScroll Down:=7
    Range("D166").Select
    ActiveCell.FormulaR1C1 = "=+R[21]C"
    Range("E166").Select
    ActiveCell.FormulaR1C1 = "=+R[21]C"
    Range("H166").Select
    ActiveCell.FormulaR1C1 = "=+R[21]C"
    Range("H165").Select
    ActiveWindow.SmallScroll Down:=-118
    Range("A54").Select
    ActiveCell.FormulaR1C1 = "Superannuation"
    Range("F54").Select
    ActiveCell.FormulaR1C1 = "=+R[133]C"
    Range("F55").Select
    ActiveWindow.SmallScroll Down:=-24
    Range("F54").Select
    Selection.AutoFill Destination:=Range("F54:G54"), Type:=xlFillDefault
    Range("F54:G54").Select
    Range("I53").Select
    Selection.AutoFill Destination:=Range("I53:I54"), Type:=xlFillDefault
    Range("I53:I54").Select
    Range("A53:I55").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 1
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 1
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 1
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 1
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 1
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 1
    End With
    ActiveWindow.SmallScroll Down:=125
    ActiveWindow.SmallScroll ToRight:=-2
    Range("G183").Select
    ActiveWindow.SmallScroll Down:=-118
    Range("G53").Select
    ActiveCell.FormulaR1C1 = "=+R[384]C-R[129]C"
    Range("G54").Select
    ActiveWindow.SmallScroll Down:=89
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=6
    Range("G174").Select
    ActiveWindow.SmallScroll Down:=5
    Range("A175").Select
    Selection.Font.Bold = True
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Range("D167").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
    Range("D167").Select
    Selection.AutoFill Destination:=Range("D167:H167"), Type:=xlFillDefault
    Range("D167:H167").Select
    Range("D189").Select
    ActiveCell.FormulaR1C1 = "=+R[-2]C+R[-6]C"
    Range("D189").Select
    Selection.AutoFill Destination:=Range("D189:H189"), Type:=xlFillDefault
    Range("D189:H189").Select
    Range("F189").Select
    ActiveWindow.SmallScroll Down:=-112
    Range("G57").Select
    ActiveWindow.SmallScroll Down:=20
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=99
    Range("G189").Select
    ActiveWindow.SmallScroll Down:=-117
    Range("G57").Select
    ActiveWindow.SmallScroll Down:=17
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=97
    Range("D189:H189").Select
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Selection.EntireRow.Delete
    Range("C166").Select
    ActiveCell.FormulaR1C1 = ""
    Range("C168").Select
    ActiveWindow.SmallScroll Down:=-31
    ActiveWindow.SmallScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=-302
    Columns("A:A").Select
    Selection.Copy
    Range("K1").Select
    ActiveSheet.Paste
    Range("A10").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Dips / Pate's - Wholesale"
    Range("A16").Select
    ActiveCell.FormulaR1C1 = "Stock Ex Partnership"
    Range("A17").Select
    ActiveWindow.SmallScroll Down:=19
    Range("A39").Select
    ActiveWindow.SmallScroll Down:=121
    Range("A156").Select
    ActiveCell.FormulaR1C1 = "Magna"
    Range("A157").Select
    ActiveCell.FormulaR1C1 = "Private"
    Range("A158").Select
    ActiveCell.FormulaR1C1 = "Aurion"
    Range("A159").Select
    ActiveCell.FormulaR1C1 = "Van"
    Range("A161").Select
    ActiveWindow.SmallScroll Down:=-162
    Columns("K:K").Select
    Selection.ClearContents
    Selection.Delete Shift:=xlToLeft
    Range("L9").Select
    ActiveWindow.SmallScroll Down:=-150
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.109448818897638)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = -4
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With
    Range("A1:I168").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$I$168"
    Columns("C:C").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 8
        .StrikeThrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
    End With
    Columns("C:C").EntireColumn.AutoFit
    Columns("A:A").EntireColumn.AutoFit
    Columns("A:A").ColumnWidth = 28
    Range("L160").Select
    ActiveWindow.SmallScroll Down:=-338
    Columns("A:A").ColumnWidth = 24.33
    ActiveWindow.SmallScroll Down:=69
    Columns("A:A").ColumnWidth = 25.33
    Columns("A:A").ColumnWidth = 24.5
    ActiveWindow.SmallScroll Down:=-22
    Rows("152:153").Select
    Selection.Font.Bold = True
    ActiveWindow.SmallScroll Down:=-36
    Range("A107:I108").Select
    ActiveWindow.SmallScroll Down:=-31
    Range("A80:I81").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("A69").Select
    Set ActiveSheet.HPageBreaks(1).Location = Range("A66")
    ActiveWindow.SmallScroll Down:=-36
    Range("A30").Select
    Selection.EntireRow.Delete
    ActiveWindow.SmallScroll Down:=-114
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A$1:$I$167"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = "&""Calibri,Regular""&K000000&F"
        .CenterFooter = ""
        .RightFooter = "&""Calibri,Regular""&K000000&D"
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.11)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = -4
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With
    ActiveWindow.SmallScroll Down:=-672
    Range("A1:I167").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$I$167"
    Range("D152").Select
    ActiveWindow.SmallScroll Down:=-39
    Set ActiveSheet.HPageBreaks(2).Location = Range("A108")
    ActiveWindow.SmallScroll Down:=-361
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, PrintToFile:= _
        "Macintosh HD:private:var:folders:19:s7wptnf11bq37d5fvxchy5gm0000gn:T:TemporaryItems:PLClass1314.xlsx.pdf"
    ActiveWindow.SmallScroll Down:=-50
    Range("D11").Select
    ActiveWindow.SmallScroll Down:=44
    Range("A63").Select
    ActiveWindow.SmallScroll Down:=-195
End Sub
 
Last edited by a moderator:

Excel Facts

Repeat Last Command
Pressing F4 adds dollar signs when editing a formula. When not editing, F4 repeats last command.

Smitty

Legend
Joined
May 15, 2003
Messages
29,536
Re: Macro error message 'procedure is too large'

Welcome to the Board!

The first thing you can do is get rid of useless screen navigation like: ActiveWindow.SmallScroll Down:=-195

The next thing you can do is eliminate Select statements, so when you see Select followed by Selection you can generally eliminate both statements.

Range("B2").Select
Application.CutCopyMode = False
Selection.Cut Destination:=Range("E2")

Can simply be: Range("B2").Cut Destination:=Range("E2")

HTH,
 

Michael M

Well-known Member
Joined
Oct 27, 2005
Messages
20,522
Office Version
  1. 2016
  2. 2013
  3. 2007
Platform
  1. Windows
Re: Macro error message 'procedure is too large'

And without going through the entire code, you might be better breaking the code into "specific " sets of activities and then call each set as required.
 

Mackfarm

New Member
Joined
Mar 3, 2014
Messages
2
Re: Macro error message 'procedure is too large'

Thank you for the welcome and solutions. I will try both tonight. Kind Regards, Mackfarm
 

Forum statistics

Threads
1,136,300
Messages
5,674,961
Members
419,536
Latest member
Mohammed Jaffer

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
Top