ПОМОГИТЕ !!Создать программу VBA, рассчитывающую стоимость каждой покупки с учетом скидки 30% на один любой тов

Sub стоимость ()
i = 2
Do While Cells(i, 1) <> ""
If Cells(i, 3) = "хлеб" Then
Cells(i, 4) = Cells(i, 4) - Cells(i, 4) * 0.3
End If
Cells(i, 4) = Cells(i, 2) * Cells(i, 3)
i = i + 1
Loop

End Sub