помогите решить, пожалуйста) в VBA

Question

Даны вектор а∈ R^12 и вектор b∈R^14. Для каждого из них найти сумму квадратных корней из положительных элементов.

Санек Гедин · Accepted Answer

Так-то вроде просто все. Если координаты даны на листе Экселя в таблице, пусть в строке 1 будет вектор а, в строке 2 вектор b. 
S1 = 0 
For i = 1 To 12 
If Cells(1, i) > 0 Then S1 = S1 + Sqrt(Cells(1, i)) 
Next i 
S2 = 0 
For i = 1 To 14 
If Cells(2, i) > 0 Then S2 = S2 + Sqrt(Cells(2, i)) 
Next i 
Cells(1, 15) = S1 
Cells(2, 15) = S2 
End Sub