Saving data from form to next open row on a specific worksheet

[gr8trthanu]

Good Evening,

I have a userform named frmPatients with multiple text boxes and a command button entitled "SAVE".

When I hit the "SAVE" command button the data from all the texboxes is saved to a spreadsheet entitled "Table of Patients"

My problem is that the code is written in such away any new record writes over existing data.

My code does not drop down to the next empty row...

I have searched for possible solutions with no success.



Thank You

 

[gr8trthanu]

If it helps here is the code I am currently using.

{CODE]
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub cmdSave_Click()
Dim lRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Table Of Patients")
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With ws
.Cells(lRow, 2).Value = txtLast.Value
.Cells(lRow, 2).Value = txtFirst.Value

End With
'Clear input controls.
txtLast.Value = ""

End Sub<strike></strike>

 

[gr8trthanu]

I have figured out the code on this.
Thank You