Тест с выборами ответов и подсчётом баллов - VBA

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

Такое дело - есть тест на 10 вопросов, на каждый своя форма с тремя ответами и кнопками выход и продолжить + стартовая форма для ввода данных о себе. У меня был такой замысел - каждый раз, когда будет засчитан правильный ответ, в ячейку баллов будет прибавляться единичка, а в конце будет подсчёт оценки по количеству этих баллов. Проблема в том, что единички каждый раз записываются строчкой ниже, а не в ту же ячейку. В чём проблема? Привожу код для первой формы с вопросом, они все идентичны, различаются только изменением правильного OptionButton и номера форы + в последнем подходит расчёт оценки.

Private Sub CommandButton1_Click()
i = Application.CountA(Sheets("Тест").Range("E:E"))
If OptionButton3.Value = True Then
    Cells(i + 1, 5) = Cells(i + 1, 5).Value + 1
    UserForm2.Hide
    UserForm3.Show
Else
    UserForm2.Hide
    UserForm3.Show
End If
End Sub
 
Private Sub CommandButton2_Click()
Cells(i + 1, 1) = ""
Cells(i + 1, 2) = ""
Cells(i + 1, 3) = ""
Cells(i + 1, 4) = ""
UserForm2.Hide
End Sub

Решение задачи: «Тест с выборами ответов и подсчётом баллов»

textual
                            Листинг программы 
                        
                            i=Application.CountA(Sheets("Тест").Range("E:E"))