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