Автоматический переход на следующую строку таблицы при заполнении предыдущей

Private Sub CommandButton1_Click()
    Dim iRow As Long
    Dim oTable As ListObject
 
    Set oTable = Sheets("Ëèñò1").ListObjects("Òàáëèöà1")
    
    With oTable
        'Определяем номер последней строки
        iRow = .ListRows.Count + 1
        
        'Åñëè ñòðîêà íå ïóñòà, äîáàâëÿåì ñòðîêó è óâåëè÷èâàåì
        'ñ÷åò÷èê ñòðîê
        If Not .Range.Cells(iRow, 1) = "" Then
            .ListRows.Add
            iRow = iRow + 1
        End If
        
        'Â çàâèñèìîñòè îò íàæàòûõ êíîïîê çàïîëíÿåì ñòðîêó
        With .Range
            .Cells(iRow, 1).Value = iRow - 1
            If Me.OptionButton1 = True Then
                .Cells(iRow, 2) = "Öâåòû"
            ElseIf Me.OptionButton2 = True Then
                .Cells(iRow, 2) = "Ôðóêòû"
            End If
            
            If Me.OptionButton3 = True Then
                .Cells(iRow, 3) = 5
            ElseIf Me.OptionButton4 = True Then
                .Cells(iRow, 3) = 100500
            End If
            
            If Me.OptionButton5 = True Then
                .Cells(iRow, 4) = "Èíäàñòðèàë"
            ElseIf Me.OptionButton6 = True Then
                .Cells(iRow, 4) = "Õåâè"
            End If
        End With
    End With
End Sub