Неправильно работает IF в VBA и удаление строк в диапазоне

'Повышающие факторы
 
 
If K1Result = 2 Or K1Result = 1.5 Then
Range("C25").Value = VR(K1TextBox.Text)
End If
 
If K4Result = 2 Or K4Result = 1.5 Then
Range("C26").Value = VR(K4TextBox.Text)
End If
 
If ProsrochkaResult = 2 Or ProsrochkaResult = 1.5 Then
Range("C27").Value = VR(ProsrochkaTextBox)
End If
 
If APLResult = 1.5 Then
Range("C27").Value = Val(x)
End If
 
If ProsrochkaResult = 2 Or ProsrochkaResult = 1.5 Then
Range("C28").Value = VR(ProsrochkaTextBox)
End If
 
If NPLResult = 2 Or NPLResult = 1.5 Then
Range("C29").Value = VR(NPLTextBox.Text)
End If
 
If OKUResult = 2 Or OKUResult = 1.5 Then
Range("C30").Value = OKUTextBox
End If
 
If RostAktivovResult = 2 Or RostAktivovResult = 1.5 Then
Range("C31").Value = RostAktivovTextBox
End If
 
If RostSpResult = 1.5 Then
Range("C32").Value = RostspTextBox
End If
 
If FLResult = 1.5 Then
CellFL = FLperTextBox
Range("C33").Value = CellFL
End If
 
If SIFIResult = 0.5 Or SIFIResult = 1 Then
Range("C34").Value = RazmerBox1
End If
 
If DefaultTextBox = 0 Then
Range("C35").Value = "Не было дефолта"
End If
 
If AdjPcTextBox = 0.15 Then
Range("C36").Value = "Высокий рейтинг родительской организации"
End If
 
If AdjPcTextBox = 0.1 Then
Range("C36").Value = "Средний рейтинг родительской организации"
End If
 
If AdjPcTextBox = 0.05 Then
Range("C36").Value = "Низкий рейтинг родительской организации"
End If
 
 
'Нейтральные факторы
 
If K1Result = 1 Then
Range("C38").Value = VR(K1TextBox.Text)
End If
 
If K4Result = 1 Then
Range("C39").Value = VR(K4TextBox.Text)
End If
 
If APLResult = 1 Then
Range("C40").Value = VR(x)
End If
 
If ProsrochkaResult = 1 Then
Range("C41").Value = VR(ProsrochkaTextBox)
End If
 
If NPLResult = 1 Then
Range("C42").Value = VR(NPLTextBox.Text)
End If
 
If OKUResult = 1 Then
Range("C43").Value = OKUTextBox
End If
 
If RostAktivovResult = 1 Then
Range("C44").Value = RostAktivovTextBox
End If
 
If RostSpResult = 1 Then
Range("C45").Value = RostspTextBox
End If
 
If FLResult = 1 Then
CellFL = FLperTextBox
Range("C46").Value = CellFL
End If
'Понижающие
 
If K1Result = 0.5 And K1Result = 0 Then
Range("C48").Value = VR(K1TextBox.Text)
End If
 
If K4Result = 0.5 And K4Result = 0 Then
Range("C49").Value = VR(K4TextBox.Text)
End If
 
If APLResult = 0.5 And APLResult = 0 Then
Range("C50").Value = VR(x)
End If
 
If ProsrochkaResult = 0.5 And ProsrochkaResult = 0 Then
Range("C51").Value = VR(ProsrochkaTextBox)
End If
 
If NPLResult = 0.5 And NPLResult = 0 Then
Range("C52").Value = VR(NPLTextBox.Text)
End If
 
If OKUResult = 0.5 And OKUResult = 0 Then
Range("C53").Value = OKUTextBox
End If
 
If RostAktivovResult = 0.5 And RostAktivovResult = 0 Then
Range("C54").Value = RostAktivovTextBox
End If
 
If RostSpResult = 0.5 And RostSpResult = 0 Then
Range("C55").Value = RostspTextBox
End If
 
If FLResult = 0.5 And FLResult = 0 Then
CellFL = FLperTextBox
Range("C56").Value = CellFL
End If
 
If SIFIResult = 0 Then
Range("C57").Value = RazmerBox1
End If
 
If DefaultTextBox = -0.025 Then
Range("C58").Value = "Нефинансовая помощь государства"
End If
 
If DefaultTextBox = -0.05 Then
Range("C58").Value = "Дефолт"
End If
 
If AdjPcTextBox = 0 Then
Range("C59").Value = "Нет Родительской Организации"
End If

Sub MMM()
Application.ScreenUpdating = False
    With ThisWorkbook.Sheets("Калькулятор")
       For i = 60 To 25 Step -1
            If IsEmpty(Cells(i, 3)) Then
             If Not Cells(i, 3).MergeCells Then Rows(i).Delete
            End If
       Next
    End With
 Application.ScreenUpdating = True
End Sub

    With ThisWorkbook.Sheets("Калькулятор")

            If IsEmpty(.Cells(i, 3)) Then
                If Not .Cells(i, 3).MergeCells Then .Rows(i).Delete
            End If