Помогите пожалуйста составить 2 программки в VBA exel.

Во вложении - файл с рабочей книгой MS Excel 2003.Соответствующие макросы находятся на листах.Sub abcd()    Dim so As Double, pp As Double, z As Double    so = 0: pp = 1: no = 0: np = 0    For i = 1 To 8        x = Cells(1, i + 1)        For y = -5 To 5 Step 2            z = x * y / (x ^ 2 + y ^ 2)            If z < 0 Then                so = sp + z                no = np + 1            Else                If z > 0 Then                    pp = pp * z                    np = np + 1                End If            End If        Next y    Next i    Cells(2, 5) = so / no    Cells(3, 5) = pp ^ (1 / np)End SubSub Ex26()    Dim a As Double, c As Double    For i = 1 To 6        a = Cells(1, i + 1)        c = Application.WorksheetFunction.Max(Abs(a), Abs(Cells(2, i + 1)))        m = 2 * a / (c * Exp(6))        Cells(3, i + 1) = m    Next iEnd Sub