VBA Циклы , суммирование чисел

[Juck]

Задание
Вариант задания
epx=0.001

Sub pr1()
Dim A1 As Single, s As Single, k As Integer, n As Integer
Const x = 0.2
Const eps = 0.001
k = 0
n = 15
Do
A1 = a(x, k)
Cells(k + 2, 1) = A1
s = s + A1
k = k + 1
Loop While Abs(A1) > n
Cells(k + 1, 1) = "S=" & s
End Sub
 
Function a(x, k)
a = (-1) ^ k * ((x / 2) ^ 2 * k) / Factorial(k) ^ 2
End Function
 
Function Factorial(k)
  Factorial = 1
  For i = 2 To n
    Factorial = Factorial * i
  Next i
End Function

[Aleksandr H.]

Function Factorial(k) - ошибка. передается параметр k, а используется n