Помогите решить в VBA

[Федор Емельяненко]

Запрограммировать функцию и вычислить сумму ее значений в точках интервала с заданным шагом, а также произведение значений функции, попавших в промежуток (1;2].
Z=(tgx)^2+y^2, где y=2.5, 0<=x<=1.6, h=0.2
Вот наработки:

Private Sub
Dim x As Single, Y As Single, z As Single, h As Single, P As Single, S As Single
xn = Val(InputBox("Введите начальное значение x"))
xk = Val(InputBox("Введите конечное значение x"))
h = Val(InputBox("Введите шаг изменения x"))
Y = 2.5
S = 0
P = 1
I = 2
For x = xk To xn Step h
z = (Tan(x)) ^ 2 + (Y) ^ 2
Cells(I + 14, 3) = z
I = I + 1
S = S + z
If 1 < z And z <= 2 Then
P = z * P
End If
Next x
Cells(24, 4) = S
Cells(24, 5) = P
End Sub

После ввода минимального значения, максимального, шага, программа закрывается и не считает z, сумму и произведение