Рассчитать процентную ставку в зависимости от условий

Public Sub proc()
ActiveSheet.Cells.ClearContents
Dim k As Long, mk As Long, s As Long, st As Double, t As Integer, pv As Long, v As Long, a As Long, o As Double
Dim x As Variant, y As Variant, z As Variant
s = InputBox("Vvedite stoimost kvartiry")
pv = InputBox("Vvedite pervonachalnyi vznos")
t = InputBox("Vvedite srok kredita")
Range("b2") = "стоимость квартиры "
Range("b3") = "первоначальный взнос "
Range("b4") = "срок кредита "
Range("b5") = "сумма кредита "
Range("b6") = "Ïпроцентная ставка"
Range("b7") = "первоначальный взнос % "
Range("b8") = "максимальная сумма кредита"
Range("b9") = "отношение макс. суммы к сумме кредита"
Range("a2") = s
Range("a3") = pv
Range("a4") = t
k = s - pv
Range("a5") = k
v = 100 * pv / s
Range("a7") = v
If 30 <= v <= 39 Then mk = 4600000
If 40 <= v <= 49 Then mk = 5100000
If v >= 50 Then mk = 5700000
Range("a8") = mk
o = 100 * k / mk
Range("a9") = o
If o <= 50 Then If v >= 50 Then If 36 <= t <= 60 Then st = 11.4
                                If 61 <= t <= 84 Then st = 11.65
                                If 85 <= t <= 120 Then st = 11.85
                                If t > 120 Then st = 12.05
                If 40 <= v <= 49 Then If 36 <= t <= 60 Then st = 11.65
                                If 61 <= t <= 84 Then st = 11.85
                                If 85 <= t <= 120 Then st = 12.05
                                If t > 120 Then st = 12.25
                If 30 <= v <= 39 Then If 36 <= t <= 60 Then st = 12.05
                                If 61 <= t <= 84 Then st = 12.25
                                If 85 <= t <= 120 Then st = 12.4
                                If t > 120 Then st = 12.55
If 50 <= o <= 75 Then If v >= 50 Then If 36 <= t <= 60 Then st = 11.55
                                If 61 <= t <= 84 Then st = 11.8
                                If 85 <= t <= 120 Then st = 12
                                If t > 120 Then st = 12.2
                If 40 <= v <= 49 Then If 36 <= t <= 60 Then st = 11.8
                                If 61 <= t <= 84 Then st = 12
                                If 85 <= t <= 120 Then st = 12.2
                                If t > 120 Then st = 12.4
                If 30 <= v <= 39 Then If 36 <= t <= 60 Then st = 12.25
                                If 61 <= t <= 84 Then st = 12.4
                                If 85 <= t <= 120 Then st = 12.55
                                If t > 120 Then st = 12.7
If 75 <= o <= 100 Then If v >= 50 Then If 36 <= t <= 60 Then st = 11.7
                                If 61 <= t <= 84 Then st = 11.9
                                If 85 <= t <= 120 Then st = 12.1
                                If t > 120 Then st = 12.3
                If 40 <= v <= 49 Then If 36 <= t <= 60 Then st = 12
                                If 61 <= t <= 84 Then st = 12.2
                                If 85 <= t <= 120 Then st = 12.35
                                If t > 120 Then st = 12.5
                If 30 <= v <= 39 Then If 36 <= t <= 60 Then st = 12.5
                                If 61 <= t <= 84 Then st = 12.6
                                If 85 <= t <= 120 Then st = 12.7
                                If t > 120 Then st = 12.8
Range("a6") = st
End Sub

If ... Then
    действие
ElseIf ... Then
    действие
Else
    действие
End If