Range ("L178"). Select
ActiveCell.FormulaR1C1 = "= (R [-2] C [-3]-R [-2] C [-1]) * 100"
Range ("L179"). Select
Range ("E170"). Select
ActiveCell.FormulaR1C1 = "= R [-2] C [-2] * 6"
Range ("E178"). Select
ActiveCell.FormulaR1C1 = "= R [-2] C [-2] * 6"
Range ("E179"). Select
End Sub