y=e^x-ln2x (интервал от 1 до 10) ШАГ 0.5
нужно написать программу в vba excel. СРОЧНО!!!

Sub aaa()
    Cells(1, 1) = "x"
    Cells(1, 2) = "y"
    Dim a(0 To 19, 0 To 1) As Double
    For i = 0 To 19
        x = 0.5 * i + 1
        a(i, 0) = x
        a(i, 1) = Exp(x) - Log(2 * x)
        Next i
    Range("A2:B20") = a
End Sub

Вставить на лист рабочей книги и запустить