Vb.net 调整表

我正在尝试使用VB创建一个宏，它将许多行数据转换成一个表。我想存储这个宏并一次又一次地运行它。一个问题是，每次我运行它时，都会有不同数量的行

我现在使用的代码是：

'CREATE NEW TABLE
Sub CreateTable2()
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$H$922"), , xlYes).Name = _
        "MyNewTable2"
        'No go in 2003
    ActiveSheet.ListObjects("MyNewTable2").TableStyle = "TableStyleLight2"
End Sub

---

上面的代码将只延伸到“922”行。我正在寻找一种可以调整每次行数的方法。

您可以使用range.End（）构造范围

---

现在效果很好！谢谢。@user2682287如果现在真的有效，请向上投票/接受！：）

ActiveSheet.ListObjects.Add(xlSrcRange, _
 Range("$A$1:$H$" & Range("H1").End(xlDown).Row), , xlYes).Name = "MyNewTable2"