Вычислить значение функции (задание)

[sVa112]

Для Х из предоставленного диапазона (шаг выбрать самостоятельно) вычислить значение функции, Результат нужно вывести в виде таблицы.

Помогите ввести "y" и "Formula"

Sub Таблица()
Dim x As Single, y As Single, i As Integer
Dim xn As Single, xk As Single, h As Single
Dim s As Single, b As Single, n As Integer
Dim eps As Integer
xn = InputBox("Введите начальное значение аргумента x")
xk = InputBox("Введите конечное значение аргумента x")
h = InputBox("Введите шаг")
Range("A1").Value = "i"
Range("B1").Value = "X[i]"
Range("C1").Value = "Y=f(X[i])"
Range("D1").Value = "S(X[i])"
Range("E1").Value = "fabs(s-y)"
i = 2
eps = 40
n = 0
For x = xn To xk Step h
y =
Cells(i, 1).Value = (i - 1)
Cells(i, 2).Value = x
Cells(i, 3).Value.Formula =
Cells(i, 4).Value = s
Cells(i, 5).Value = b
n = n + 1
i = i + 1
Next x
End Sub

[sVa112]

У когото есть идеи?)