Столкнулся с проблемой при переделывании кода - VB

Формулировка задачи:

Доброго времени суток всем!
Тут образовалась такая проблема: мне дали готовую считающую таблицу, но вскоре она устарела.Нужно поменять баллы которые она будет выдавать на выходе.При смене в разбаловке на листе справочник ничего не изменилось, а как так изменить я не знаю, кто может подсказать?
вот ссылка на файл ,пароль 1234 на VBA:
yadi.sk/d/ndWIZppuFhhQu
Заранее спасибо.

Решение задачи: «Столкнулся с проблемой при переделывании кода»

textual
                            Листинг программы 
                        

                            'подтягивание на перекладине
Public Sub Ypr4(r_stolb, i, form)
ball = 0
rezult1 = Cells(i + 8, r_stolb).Value
If rezult1 = "-" Or rezult1 = "" Then GoTo L4_3
If rezult1 = 0 Then
    ball = 0
    GoTo L4_31
End If
'перерасчет для военной формы одежды
If form = 4 Then
    popr = Worksheets("Справочник").Cells(41, 2).Value
    rezult = rezult1 + popr
Else
    rezult = rezult1
End If
If rezult >= 30 Then
    raz = rezult - 30
    ball = 100 + raz * 3
    GoTo L4_31
End If
If rezult >= 15 And rezult < 30 Then
    raz = rezult - 15
    ball = 70 + raz * 2
    GoTo L4_31
End If
If rezult >= 3 And rezult < 15 Then
    raz = rezult - 3
    ball = 22 + 4 * raz
    GoTo L4_31
End If
If rezult = 2 Then
    ball = 16
ElseIf rezult = 1 Then
    ball = 6
Else
    ball = 0
End If
L4_31: Cells(i + 8, r_stolb + 1).Value = ball
L4_3: End Sub

                        