Интерполяция в Exel на VBA

[Nastyy]

Доброй ночи, мне нужно составить программу по интерполяции табличной заданной функции. Начальное значение x=3.1, конечное 5.8

Написала следующее:

Function myf(x)
myf = ((Sin(3 * x) - (x + 1) ^ 2) / (Cos(x) + 2)) + 5 * Pi
End Function
Sub proga()
Dim x As Double
x = InputBox("Введите значение x")
a = 3.1
b = 5.8
n = 0.3
For n = 0.3 To 10
x = Cells(n, 1)
y = Cells(n, 2)
If x > Cells(n, 1) And x < Cells(n + 1, 1) Then
x1 = Cells(n, 1)
x2 = Cells(n + 1, 1)
y1 = Cells(n, 2)
y2 = Cells(n + 1, 2)
End If
Next n
y = (((x - x1) * (y2 - y1)) / (x2 - x1)) + y1
MsgBox (y)
End Sub

когда запускаю то просят ввести значение х, как только ввожу он пишет какая то ошибка и на этом процесс заканчивается, не могу понять что делаю не так. подскажите, пожалуйста.