将工作表数据上的一个表复制到另一工作表上的另一表

Question

免责声明我以前从未使用过VBA ...

我有以下内容： Sheet1包含Table1 Sheet2包含Table2

我想复制表1的内容并将其插入表2。 您将使用复制/粘贴方法还是使用ListRows.add？

这是我从表1中选择行的方法：

 ' Copy from src table
Set srcRows = srcSh.ListObjects("Table1")
srcRows.Parent.Activate
srcRows.AutoFilter.ShowAllData
srcRows.DataBodyRange.SpecialCells(xlCellTypeVisible).Copy

但是我不确定如何在另一张表的末尾复制它？

我认为选择数据的另一种方式是将行的内容保存到变量中，然后将其添加到目标表中（但是如何？）

from = srcRows.DataBodyRange.Value

我看到了https://docs.microsoft.com/en-us/office/vba/api/excel.listrows.add#example添加函数，但不确定如何将选择应用于它。

最后，我尝试了一个以以下内容开头的演示的简化版本：

我的目标是复制第二个表中的行，以将它们追加到第一个表中。

所以我尝试了以下宏：

    Set tbl1 = ActiveSheet.ListObjects("Table3")
    Set tbl2 = ActiveSheet.ListObjects("Table2")

  For x = 2 To tbl2.Range.Rows.Count
        tbl1.ListRows.Add.Range() = tbl2.Range.Rows(x).Value
  Next x

这将产生以下结果：

几乎到了那里，但是如何使它从foo列开始时“粘贴”值？

任何帮助将不胜感激：）

谢谢