Ввод данных пользовательской формы VBA заменяет строку, а не добавляет строку внизу?

Question

Я пытаюсь реализовать пользовательскую форму, которая добавляет данные в список. Пользовательская форма точно вводит данные в правильные столбцы. Я хотел бы добавить данные, а затем перейти к следующей строке, где я могу ввести еще одну строку данных. Однако, когда я нажимаю командную кнопку для второго сета, она заменяет ту же строку, а не переходит на нижнюю. У меня есть прикрепленный код, я думаю, что это не так с уравнением «iRow». Я новичок в VBA, и мог бы использовать некоторую помощь. Заранее спасибо.

Private Sub cmd_add_Click()    
    Dim iRow As Long    
    Dim ws As Worksheet

    Set ws = Worksheets("Program Detail Input")

    iRow = ws.Cells.Find(What:=” * ”, SearchOrder:=xlRows, Searchdirection:=xlPrevious, LookIn:=xlValues).Row + 1
    iRow = iRow + 1

    If Trim(Me.txtprgrm) = "" Then    
        MsgBox "Please enter a Program Name"    
        Exit Sub
    End If

    If Trim(Me.cboRegion) = "" Then    
        MsgBox "Please enter a region"   
        Exit Sub   
    End If

    With ws 
        ws.Cells(iRow, 3).Value = Me.txtprgrm.Value    
        ws.Cells(iRow, 4).Value = Me.cboRegion.Value    
        ws.Cells(iRow, 5).Value = Me.cboStatus.Value    
        ws.Cells(iRow, 6).Value = Me.TextBox1.Value
    End With

    Me.txtprgrm.Value = ""    
    Me.cboRegion.Value = ""    
    Me.cboStatus.Value = ""    
    Me.txtprgrm.SetFocus
End Sub