Excel:VBA复制表格中的行向下/特定调整顺序

我有一个excel 2016文件，一张纸上有13个表格。最后12个表中的公式取决于第一个表。现在我尝试创建一个宏，一次向所有表添加多行。我让它工作，但它不是从第一张桌子开始。这在引用中创建了一个“间隙”，因为表1中的行只是在后面添加的。我想指出的是，对我来说，用表号编码似乎没有任何解决方案，因为我需要这些代码来处理其他表的其他工作表。 我认为解决这个问题的最佳方法是选择表中较早的一行并将其复制到最后一行，但我不确定如何完成。当然，另一种解决办法是影响表格的调整顺序，但对我来说，这似乎是不可能实现的。 到目前为止，我插入行的代码是：

Sub Test()

  Dim Table As ListObject
    Dim NewRow As Range
    Dim i As Integer
    
    Answer = InputBox("How many rows do you want to add?")
Number = CInt(Answer)
    
    For i = 1 To Number
    
    Set Sheet = ActiveSheet
    
    For Each Table In Sheet.ListObjects
          Table.ListRows.Add
    Next Table
    
    Next i

End Sub

我对VBA比较陌生，所以任何帮助都将不胜感激

多谢各位