Определить причину зависания программы

Private Sub CommandButton1_Click()
'Ввод задолженности в переменную
i = 2
'Крутим цикл пока в столбце есть фамилии
Do While Cells(i, 2) > ""
  Cells(1, 14) = TextBox1
  If Cells(i, 1) = Cells(1, 14) Then
  'Подсчет двоек, четвёрок и пятерок по экзаменам
      For j = 1 To 5
          If Cells(i, j + 2) = 2 Then k3 = k3 + 1
      Next j
  'подсчёт незачётов с уже сосчитанными двойками
      For j = 1 To 5
          If Cells(i, j + 7) = "н" Then k3 = k3 + 1
      Next j
  'обънуление переменной
      q1 = 0
  'если у студента есть 2 или "н" то w=w+1
      For k = 1 To 5
          If Cells(i, k + 2) = 2 Then q1 = q1 + 1
          If Cells(i, k + 7) = "н" Then q2 = q2 + 1
      Next k
      If q1 > 0 Then
        w = w + 1
      ElseIf q2 > 0 Then
        w = w + 1
      End If
  'вывод количества долгов
      If k3 > 0 Then
        Label6.Caption = k3
      End If
  'вывод количества должников
      If w > 0 Then
        Label7.Caption = w
      ElseIf w = 0 Then
        Label7.Caption = 0
      End If
'      i = i + 1
      Label7.Caption = w
      'Label8.Caption = a
      'Label9.Caption = Z
  End If
  i = i + 1
Loop
End Sub