使用宏自动展开Excel表

Question

我有一个Excel文档，可从Access数据库中提取数据。
从此处开始，数据汇总在数据透视表中。
然后将其拉入另一个表，使其更易于读取和过滤。

最后一张表格的格式设置为表格，并且公式到位。
根据数据库中的数据，刷新时此表可以减少或扩展行数。

当我运行宏以刷新数据和表时，我希望能够自动调整表的大小，以便显示所有数据，但底部没有多余的空白行。

到目前为止，我有以下代码可以查找“数据透视表”工作表（数据透视表），以确定要在输出工作表（“报告”）中显示的行数：

Sub ResizeList()
 Dim ws As Worksheet
 Dim ob As ListObject
 Dim Lrow1 As Long

Lrow1 = Sheets("Pivot").Cells(Rows.Count, "A").End(xlUp).Row
Set ws = ActiveWorkbook.Worksheets("Report")
Set ob = ws.ListObjects("Report_Table")

ob.Resize ob.Range.Resize(Lrow1)

End Sub

但是，当表格减小大小时，它只会从底部额外的行中删除表格格式（而不是数据）。 另外，由于数据透视表中的标题行和总数行，我在报表表中得到的行太多。

有人可以帮忙吗？