Excel 将表格下方的行添加到表格范围

我正在尝试调整表的大小，以将数据包含在表中最后一行正下方的行中。我当前的代码如下所示，但返回一个对象定义的错误。此外，当在表的上方和下方添加行时，表会更改位置

tbl.resize tbl.Range.CurrentRegion.Offset（1,0）

我使用了以下来源来尝试解决这个问题，但运气不佳。 这对我来说很有用

Sub x()

Dim tbl As ListObject

Set tbl = ActiveSheet.ListObjects("Table1")
tbl.Resize tbl.Range.Resize(tbl.Range.Rows.Count + 1)

End Sub

---

是-因为

Offset

表示不再包括标题行。