не могу найти ошибку:(

Задание по табулированию функции...х выводится, а у почему-то нет:(..И мне такой непутёвой не найти ошибку:mad:

Ошибка где-то в это куске:

Sub vichesslenija()

Dim x As Double
Dim y As Double
Dim x_alg As Double
Dim ym_alg As Double
Dim n_alg As Integer
Dim num As Integer
Dim c_alg As Double
Dim h_alg As Double

n_alg = Cells(25, 2)

If n_alg > 20 Then
n_alg = 20
Else
End If

c_alg = Cells(22, 2)

h_alg = Cells(23, 2)

ym_alg = Cells(21, 2)

x_alg = Cells(20, 2)

x = x_alg

For i = 1 To n_alg

If x <= -2 And x > 1 Then
y = (4 + Sqr(x ^ 2 - 4)) / (5 * x ^ 2)

If ym_alg < y Then
Cells(16 + i, 8) = y

Else
Cells(16 + i, 8) = "N/A"

End If
Else
Cells(16 + i, 8) = "N/A"

End If
Cells(16 + i, 7) = x
x = x_alg + 2 * i * c_alg * h_alg
Next i

помогите пожалуйста!:(