Copy/Move Data from a table to another Sheet to a table

[himaruasuka]

Good day everyone!

I am looking for help. I tried this code already and it is working but I have some problem with it.
It is successfully copy/move the data to another sheet but without using a 'table'.

I want to convert this code that can copy/move data to another sheet with a 'table'.
It can move the data but it copied in one row only.
I don't know what's wrong with the code.

Please help me~

Private Sub export_confirm_Click()

If export_passtxt = "himaru1989" Then

Selection.EntireRow.Copy

Worksheets("COMPLETE").Unprotect "utt"
LastRow = Sheets("COMPLETE").Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Paste Destination:=Worksheets("COMPLETE").Range("a" & LastRow)
Worksheets("COMPLETE").Protect "utt"

Worksheets("ORDERS").Unprotect "utt"
Selection.EntireRow.Delete
'ActiveWorkbook.Save
Worksheets("ORDERS").Protect "utt"
Unload exportpassword
Exit Sub

Else
MsgBox "Password is incorrect!"
End If

End Sub

 

[DanteAmor]

I am looking for help.

Copy/Move Data from a table to another Sheet to a table

Try this:

Private Sub export_confirm_Click()
  Dim newRow As ListRow
  
  If export_passtxt = "himaru1989" Then
    With Worksheets("COMPLETE")
      .Unprotect "utt"
        Set newRow = .ListObjects(1).ListRows.Add
        Selection.EntireRow.Copy .Range("A" & newRow.Range.Cells(1).Row)
      .Protect "utt"
    End With
    Worksheets("ORDERS").Unprotect "utt"
    Selection.EntireRow.Delete
    'ActiveWorkbook.Save
    Worksheets("ORDERS").Protect "utt"
    Unload exportpassword
    Exit Sub
  Else
    MsgBox "Password is incorrect!"
  End If
End Sub

 

[himaruasuka]

Thank you so much sir Dante !
It's really works now!