Sub MacroT22()
'
' T22 Macro
'
'
' Page 1
Range("AI23").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(R[-1]C[-23]*220000,0),-1)"
Range("M22").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M22").Select
Range("M23").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M23").Select
Range("M24").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M24").Select
Range("M25").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M25").Select
Range("M26").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M26").Select
Range("M27").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M27").Select
Range("M28").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M28").Select
Range("M29").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M29").Select
Range("M30").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M30").Select
Range("M31").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M31").Select
Range("M32").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M32").Select
Range("M33").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M33").Select
Range("M34").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M34").Select
Range("M35").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M35").Select
Range("M36").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M36").Select
Range("M37").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M37").Select
Range("M38").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M38").Select
Range("M39").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M39").Select
Range("M40").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M40").Select
Range("M41").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M41").Select
Range("M42").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M42").Select
Range("M43").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M43").Select
Range("M44").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M44").Select
' Page 2
Range("M48").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(ROUNDDOWN(RC[-1]*220000,0),-1)"
Range("M48").Select
etc...