ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ VBA!!!!!!!!!!!!!!!!!!!!!!!!!!!ЦИКЛ С ПОСТУСЛОВИЕМ.......Для x из интервала (-2; 8) с шагом 0,75 вычислить y = (4x-3x+tg(x))/А, где А вводится с клавиатуры.

Sub aaa()
    Cells(1, 1) = "X"
    Cells(1, 2) = "Y"
    a = InputBox("Введите значение А")
    i = 2
    x = -2#
    Do
        Cells(i, 1) = x
        Cells(i, 2) = (4 * x - 3 * x + Tan(x)) / a
        i = i + 1
        x = x + 0.75
    Loop Until x gt; 8
End Sub