VBA，调整表大小正在移动数据

Question

每周添加数据后，我试图使用此代码来调整表的大小。

Sub ResizeListDyn()
    Dim tbl As ListObject
    Set tbl = ActiveSheet.ListObjects(1)
    tbl.Resize tbl.Range.CurrentRegion
End Sub

当前数据是这样的，表中包含2018年12月12日。我添加了接下来两周的数据，并尝试自动调整表格的大小。

+-------------+--------------+--------------+-------------+
| 12-Dec-2018 | -71700079.84 | -65611884.73 | -1794788.38 |
| 19-Dec-2018 | -82238011.30 | -74725620.20 | -1558074.81 |
| 26-Dec-2018 | -59385932.41 | -54947256.94 | -1811642.55 |
+-------------+--------------+--------------+-------------+

运行代码后，我得到的数据如下：

+-------------+--------------+--------------+-------------+
| 19-Dec-2018 | -82238011.30 | -74725620.20 | -1558074.81 |
| 26-Dec-2018 | -59385932.41 | -54947256.94 | -1811642.55 |
| 12-Dec-2018 | -71700079.84 | -65611884.73 | -1794788.38 |
+-------------+--------------+--------------+-------------+

如您所见，2018年12月12日数据移至最后一行。但是它们现在都在桌子上了。

任何帮助将不胜感激。