Trying to add New names to a user list table with a user form. In the current format it does not show up on the table, what do I need to do?

[alleneure]

I have a summary area pulling from other sheets on that are below the table I would like to add names to. The table name is "UserTable" and I want to add first name to 2nd column and want to add last name to the 3rd column. For the time being I have moved it to below the summary and it works fine but would like the final resting place of the summary to be where I have it in the screenshot.

Private Sub AddUserButton_Click()

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Summary")

'find first empty row in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1


'copy the data to the database
'use protect and unprotect lines,
'     with your password
'     if worksheet is protected
With ws
'  .Unprotect Password:="password"
  .Cells(iRow, 26).Value = Me.txtFirstName.Value
  .Cells(iRow, 27).Value = Me.txtLastName.Value
'  .Protect Password:="password"
End With

'clear the data
Me.txtFirstName.Value = ""
Me.txtLastName.Value = ""
'Focus on First name for another entry
Me.txtFirstName.SetFocus


End Sub

 

[alleneure]

Nevermind, I figured it out. If anyone wants/need to know refer to this thread.

VBA not finding next empty row due to formula

I've created a simple checkbook register where there is a formula in column G that totals E, F & G. I also created a form. Problem is, after hitting submit, it enters the entry at row 101 due to the formula in rows 2-100 (I think). Is there a way to have it select next empty row and exclude the...

www.mrexcel.com