使用VBA自动填充表格列数据，可以使用以下代码示例：

Sub autofillTableColumn()

Dim lastRow As Long
Dim rng As Range

'Find the last row of the table
lastRow = Range("Table1[Column1]").Rows.Count

'Set range for the column to fill
Set rng = Range("Table1[Column2]").Resize(lastRow - 1, 1)

'Fill the range with the formula
rng.Formula = Range("Table1[Column2]").Cells(1, 1).Formula

'Autofill the range down to the last row
rng.AutoFill Destination:=rng.Resize(lastRow, 1), Type:=xlFillDefault

End Sub

这个代码段演示了如何自动填充“ Table1”表格中“ Column2”的列，使用“ Column2”的第一个单元格中的公式填充。它还自动调整表格大小，以适合填充的数量。请根据自己的需求修改代码中的表格名称和列名。