05. VAT

Sub VATProblem()
    Dim quantity, amount, price, VAT, totalPrice As Double
    quantity = Range("B2")
    amount = Range("D2")
    price = quantity * amount
    VAT = price * 0.2
    totalPrice = price + VAT

    Debug.Print price
    Debug.Print VAT
    Debug.Print totalPrice

    Range("E2") = price
    Range("F2") = VAT
    Range("G2") = totalPrice

End Sub