使用vba将单个表镜像到Excel中的多个工作表

Question

我在数据库表中有一个表，我想将链接粘贴到另一个表。但是我意识到使用excel和vba是不可能的。有没有办法自动引用这些表？等同于细胞范围是我所知道的一种方式，但它非常繁琐，因为我有超过50个这样的表格。硬编码这些方程式是一个麻烦。这是我复制粘贴表格所做的基本代码。

Sub table()


ActiveSheet.ListObjects("Table1").Range.Copy
'This code will run only when the cursor is at activesheet

Sheets("Sheeet2").Range("A2").PasteSpecial xlPasteValues

End Sub