Find next empty row not working.

[mudflap]

I'm trying to write this form and everything is working good except it is not finding the next empty row. It is just overwriting the data from previous run. I had tried a couple different ways to find next row but no success! And I'm trying to make any sheet active when I run this form. It only runs with the sheet that I specified in the code. Is there a way to fix my problems?

Thanks for looking mudflap!

 

[Weaver]

What code are you currently using?

 

[mudflap]

Private Sub CBok_Click()
'Find next row on data sheet

nextrow = Worksheets("2011").Cells(Rows.Count, 1).End(xlUp) + 5


' Write the values from this form to that row
With Worksheets("2011")
.Cells(nextrow, 1).Value = Me.TBinvoicedate
.Cells(nextrow, 2).Value = Me.TBinvoicenumber
.Cells(nextrow, 3).Value = Me.TBjobnumber
.Cells(nextrow, 4).Value = Me.TBinvoiceamount

End With

'Unload the form
Unload Me


End Sub

 

[mudflap]

My first row needs to start at 5.