Sub NV_Goods()
'
' NV_Goods Macro
' Witholding Taxes on Non VAT Goods.
'

'
ActiveCell.FormulaR1C1 = "=ROUND(R[-1]C[-1]*0.01,2)"
ActiveCell.Offset(1).FormulaR1C1 = "=ROUND(R[-2]C[-1]*0.01,2)"
ActiveCell.Offset(2).FormulaR1C1 = "=R[-3]C[-1]-R[-2]C-R[-1]C"
ActiveCell.Offset(3).Select
 End Sub




 Sub NV_Services()
'
' NV_Services Macro
' Witholding Taxes on Non VAT Services
'

'
ActiveCell.FormulaR1C1 = "=ROUND(R[-1]C[-1]*0.02,2)"
ActiveCell.Offset(1).FormulaR1C1 = "=ROUND(R[-2]C[-1]*0.01,2)"
ActiveCell.Offset(2).FormulaR1C1 = "=R[-3]C[-1]-R[-2]C-R[-1]C"
ActiveCell.Offset(3).Select
End Sub