使用表格中的数据自动填充列

Question

我有一张桌子，只有一列，每天早晨都必须用名字均匀地填充。从历史上看，Excel的自动填充功能已经能够满足这一需求，但是随着此工作表的用途不断扩展到其他用户，我正在努力使这一步骤变得过错。我想发生的是，表2中的E列（500个以上的空行）要按顺序填充表1中A列的数据（约15个名称）。

Sub TableTransfer()

Dim myArray() As Variant
Dim myTable As ListObject
Dim cell As Range
Dim x As Long

Set myTable = ActiveSheet.ListObjects("Table1")
TempArray = myTable.DataBodyRange
myArray = Application.Transpose(TempArray)

Set otherTable = ActiveSheet.ListObjects("Table2")
Range(otherTable) = myArray

For x = LBound(myArray) To UBound(myArray)
Next x

End Sub

上面的代码仅使用表1中的第一个表行，但是我需要它遍历表1中的所有表行并将它们转移到表2中的所有空行。