'подтягивание на перекладине
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