无法导航到下一行

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是一个通配符。但我需要这个去电子表格中的特定位置开始。我很感激提供的任何帮助。