Помогите составить программки VBA exel пожалуйста Составить программку вычисления

Во вложении другая задачка, ее тоже необходимо решить

Да, согласен

вводим с клавиатуры, выводим на лист

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 Абс(pow - m1) gt; e
    Cells(2, 2) = s
    Cells(3, 2) = n
End Sub

Sub 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) = s
End Sub