excel - 如何使用 VBA 将 Excel 表减少为非空行

Question

我有以下代码将表格减少到标题 + 1 行。如果表是空的，这很好，但如果表中有数据，我也想使用它。
在这种情况下，我想将表格减少到最后一个数据条目的行。如果行中有数据，A 列中将始终有数据。已用行列表的顶部和底部之间不会有空行。如果有人能告诉我如何修改代码以达到这种效果，我将不胜感激。非常感谢您的帮助

Sub Button1_Click()

    Dim lstObj As ListObject

    Set lstObj = Sheets("Sheet6").ListObjects("TSheet6")

    With lstObj

        'Following line resizes the table to headers Plus 1 row
        .Resize lstObj.Range.Resize(2, .Range.Columns.Count)

    End With
End Sub