[okshef]

Хорошо, тогда такой вариант, как пример:
1. В ячейках A1:A10 - значения X
2. В ячейках B1:B10 - формула

Код:

=корень(А1-1)
=корень(А2-1)
...
=корень(А10-1)

3. В ячейке В11 формула

Код:

=СУММ(B1:B10)

но это - без VBA. Макрос - чуть позже.
А вот и макрос

Код:

Sub sum_sqr()
i = 1 ' присвоение начальных значений
S = 0
Do While Cells(i, 1) <> "" ' цикл - до тех пор, пока в ячейке не будет пусто
    S = S + Sqr(Cells(i, 1).Value - 1) ' последовательное суммирование результатов вычислений
    i = i + 1
Loop
Cells(i, 1) = S ' запись в ячейку, следующую за последним элементом массива суммы вычислений
End Sub