VBA, таблица изменения размеров перемещает данные

Question

Я пытаюсь использовать этот код для изменения размера моей таблицы после того, как я добавляю в нее данные еженедельно.

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

В настоящее время данные примерно такие, с 12 декабря 2018 года в таблице.Я добавляю данные за следующие две недели и пытаюсь автоматически изменить размер таблицы.

+-------------+--------------+--------------+-------------+
| 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 |
+-------------+--------------+--------------+-------------+

Как вы можете видеть 12-Dec-2018 данные перемещаются в последнюю строку.Но теперь они все в таблице.

Любая помощь будет признательна.