Error in merge two table from two sheets to another sheet

Report
Posts
29
Registration date
Thursday July 18, 2019
Status
Member
Last seen
March 28, 2020
-
hello,
i have 3 sheets sheet 1,2 are 2 tables contains data and merge theses tables in sheet3 it shows me
the error


table1:


table2:




and this is my code
Sub test()
Dim tbl As ListObject

Set tbl = Sheet3.Cells(1).ListObject

tbl.DataBodyRange.Columns(2).Resize(, 3).ClearContents

Sheet1.Cells(1).CurrentRegion.Offset(1).Copy _
tbl.Range.Columns(2).Find("*", , , , , 2).Offset(1)
Sheet2.Cells(1).CurrentRegion.Offset(1).Copy _
tbl.Range.Columns(2).Find("*", , , , , 2).Offset(1)

End Sub