Userform Enters Data At End Of Table Instead Of First Empty Row

No matter what I do the data entered into the UserForm always goes to the next row that isnt formatted as a table instead of into the the next empty row within the table.

I have tried:

Code:

With Sheet2.Range("B1").EntireColumn
NextRow = .Find(What:="*", _
After:=.Cells(1), _
LookIn:=xlFormulas, _
Lookat:=xlPart, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row + 1
End With

and

Code:

Private Sub CommandButton1_Click()
Dim LastRow As Long
Dim i As Integer, response As Integer
With Sheet1
LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row + 1

[Code] .......

and

Code:
Dim LastRow as LongLastRow = Cells.Find("*",SearchOrder:=xlByRows,SearchDirection:=xlPrevious).Row

and

Code:

Private Sub CommandButton1_Click()
Dim LastRow As Object
Set LastRow = Sheet1.Range("a65536").End(xlUp)