VBA- Help with going to next row in sequence

Private Sub cmdSubmit_Click()
Dim iRow As Long
Dim ws As Worksheet
Dim ws2 As Worksheet
Set ws = Worksheets("Prod")
Set ws2 = Worksheets("Inventory")
'find first empty row in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
'checks for values in important positions (Could cause erros and crash program)
If Trim(Me.tbDate.Value) = "" Then
MsgBox "Please complete the form"
Exit Sub
End If
If Trim(Me.tbStartTime.Value) = "HH:MM" Then
MsgBox "Enter a Start Time"
Exit Sub
End If
If Trim(Me.tbEndTime.Value) = "HH:MM" Then
MsgBox "Enter a End Time"
Exit Sub
End If
If Trim(Me.tbFGSpools.Value) = "" Then
MsgBox "If no spools were used enter '0'"
Exit Sub
End If
If Trim(Me.tbJSpools.Value) = "" Then
MsgBox "If no spools were used enter '0'"
Exit Sub
End If
'copy the data to the database
ws.Cells(iRow, 4).Value = Me.tbDate.Value
ws.Cells(iRow, 5).Value = Me.tbSerial.Value
ws.Cells(iRow, 6).Value = Me.cbQuality.Value
'The row calulates the total process time in minutes
ws.Cells(iRow, 8).Value = DateDiff("n", Me.tbStartTime.Value, Me.tbEndTime.Value)
ws.Cells(iRow, 19).Value = Me.tbLiner.Value
ws.Cells(iRow, 20).Value = Me.tbFGTape1.Value
ws.Cells(iRow, 21).Value = Me.tbJTape1.Value
'Subtracts how many FG spools from the inventory sheet
If Me.tbFGSpools.Value >= 1 Then
ws2.Range("B2") = Range("B2") - Me.tbFGSpools.Value
Else: ws2.Range("B2") = Range("B2")
End If
'Subtracts how many J spools from the inventory sheet
If Me.tbJSpools.Value >= 1 Then
ws2.Range("B3") = (Range("B3") - Me.tbJSpools.Value)
Else: ws2.Range("B3") = Range("B3")
End If
'Message box to tell you data has been added
MsgBox "Data added", vbOKOnly + vbInformation, "Data Added"
'clear the data
Me.tbDate.Value = ""
Me.tbSerial.Value = ""
Me.cbQuality.Value = ""
Me.tbStartTime.Value = ""
Me.tbEndTime.Value = ""
Me.tbLiner.Value = ""
Me.tbFGTape1.Value = ""
Me.tbJTape1.Value = ""
Me.tbJSpools.Value = ""
Me.tbFGSpools.Value = ""
Dim X
X = 1
'Subtracts 1 from the liner count
ws2.Range("B1") = Range("B1") - X
End Sub
/r/excel Thread