Невозможно перейти к следующей строке

Question

Я очень новичок в Excel-vba, и учусь на том, чтобы брать то, что другие делали и делятся онлайн, и настраивать его под свои нужды.У меня есть код, который вводит данные в электронную таблицу в определенном месте, и мне нужно перейти к следующей строке для новых данных.Вот код, который у меня есть:

'Code for saving the data in COFF-171 
    Dim iRow2 As Long 
    Dim ws2 As Worksheet 
    Set ws2 = Worksheets("COFF-171")  

'find first empty row in database 
    iRow2 = ws2.Cells.Find(What:="CFDA#", SearchOrder:=xlRows,_
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1  

    With ws2
       .Cells(iRow2, 3).Value = Me.CDFANoTxtBx.Value
       .Cells(iRow2, 4).Value = Me.ProgramNameComboBx.Value 
       .Cells(iRow2, 5).Value = Me.SubrecTxtBx.Value      
       .Cells(iRow2, 6).Value = Me.SubrecExplTxtBx.Value      
       .Cells(iRow2, 7).Value = Me.TGATxtBx.Value      
       .Cells(iRow2, 8).Value = Me.AddtlNotesTxtBx.Value
    End With

Это возвращает меня к первой ячейке для ввода и вводит данные для этой строки.То, что он не делает, что мне нужно сделать, это перейти к следующей строке в рамках подготовки к новому вводу данных.Язык работает в другой таблице, которую я имею, потому что Find является подстановочным знаком.Но мне нужно, чтобы это началось с определенного места в таблице.Буду признателен за любую предоставленную помощь.