Move data from 1 table to another table, then clear the original table

I'm having issues getting table 1 to clear.
See attached.
Table1 is on the tab "Input"
Table2 is on the tab "MasterTable"

When table 1 is blank, it should only have 1 entry row. If the user wants to input 3 rows, tables automatically grow if the user inputs a 2nd record, or a 3rd, and so on.
After the user inputs as much as they want, they will click the button to move the newly input data into the MasterTable (table2)

But then I need to come back to Table1 and clear what they had input, and I also want Table1 to have only 1 new row ready for input for the next user.

I think I'm close, but it just doesn't work. I currently have 3 lines of code to clear Table1 remarked out.

How do I fix this?

Thank you bakerman2!
One item I need to add is (I think) "ActiveSheet.UsedRange" at some point before inserting into Table2. Because table 2 could potentially have rows deleted, the last active cell isn't known until the file is saved, but saving isn't always going to happen. So my understanding is this 1 line "AciveSheet.UsedRange" updates what the last active cell is. But in your code I don't see Table2 even mentioned so I'm not sure where I would insert this line of code. But I'm also getting an error now (I haven't tried inserting this UsedRange yet either. I got the error after testing a few rounds of inserting new records and also deleting some rows in Table2. The record moves/inserts, then it errors and Table1 doesn't clear itself. I'll see if I can attach the latest version of this file.

Attaching latest copy of test file...

Only the last line gave me issues. I don't know why. But I changed it to the following and now it works. Thank you again bakerman2

Sub MoveInputToMasterTable()
Dim lRow As Long

With Sheets("Input").ListObjects("Table1").DataBodyRange
lRow = Sheet4.ListObjects("Table2").Range.Rows.Count
.Copy Sheet4.Range("A" & lRow).Offset(1)
If .Rows.Count > 1 Then
.Offset(1).Resize(.Rows.Count - 1, .Columns.Count).Rows.Delete
.Rows(1).SpecialCells(xlCellTypeConstants).ClearContents
Else
.Rows(1).SpecialCells(xlCellTypeConstants).ClearContents
End If
End With
Application.Goto Reference:="R5C1"
End Sub