проверьте пожалуйста правильно или нет, поправьте если ошибся

Sub z4p1()

Dim x(10) As Double

For i = 1 To 10

x(i) = Cells(1, i + 1)

If x(i) > 0 Then

SummSqrx(i) = SummSqrx(i) + cdblx(i) * x(i)

End If

Next i

Cells(3, 1) = "Sum"

Cells(3, 2) = Sum

End Sub