Помогите составить программы VBA exel пожалуйста
Составить программу вычисления y=x-0.5x^2+0.25x^3-0.125x^4+0.0625x^5-...
Расчет вести до тех пор, пока модуль разности между значениями двух соседних членов ряда не станет меньше заданной точности Е. Подсчитать число слагаемых

И да, для "спасибо" достаточно кликнуть красное сердечко)

Sub First()    s = 0    z = 1    x = Val(InputBox("Введите х не больше 2"))    e = Val(InputBox("Введите точность Е"))    n = 1    pow = x    Do        m1 = pow        z = -z        pow = pow * (x / 2)        s = s + pow * z        n = n + 1    Loop While Abs(pow - m1) > e    Cells(2, 2) = s    Cells(3, 2) = nEnd SubSub s22()    s = 0    z = 1    x = Val(InputBox("Введите х"))    powx = 1    For i = 1 To 25        powx = powx * x        s = s + z * powx / (i * (i + 1))        z = -z    Next i    Cells(6, 2) = sEnd Sub