Excel, VBA. Помогите. нужно немножко исправить код.

Данный код не совсем для моих значений, просьба подкорректировать.
Спасибо.

http://xmages.net/out.php/i88989_Excel.JPG

Sub Button11_Click()
n = Cells(3, 2)
sumx = 0
sumy = 0
For i = 8 To n + 8
sumx = sumx + Cells(i, 2)
sumy = sumy + Cells(i, 3)
Next i
srx = sumx / (n + 1)
sry = sumy / (n + 1)
sumc = 0
sumz = 0
For i = 8 To n + 8
x = Cells(i, 2)
y = Cells(i, 3)
c = (x - srx) * (y - sry)
sumc = sumc + c
z = (x - srx) ^ 2
sumz = sumz + z
Next i
aa = sumc / sumz
bb = sry - srx * aa
summ = 0
For i = 8 To n + 8
x = Cells(i, 2)
y = Cells(i, 3)
m = (y - aa * x - bb) ^ 2
summ = summ + m
Next i
da = 2 * (Sqr(summ / ((n - 2) * sumz)))
Cells(6, 15) = da
End Sub

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.