调整表VBA Excel的大小

Question

我目前的表格范围是A1：D1

我想从A1：DIncreasedRange调整它的大小，其中IncreasedRanged是在单元格G3中找到的值（整数）。我试过以下内容：

Sub ResizeList()
  Dim wrksht As Worksheet
  Dim objListObj As ListObject
  Dim IncreasedRange As Ingter

  Set wrksht = ActiveWorkbook.Worksheets("Sheet1")
  Set objListObj = wrksht.ListObjects("Table1")

  IncreasedRange = Worksheets("Sheet1").Cells(3, "G").Value
  MsgBox (IncreasedRange)

  objListObj.Resize Range("A1:(D+IncreasedRange)")
End Sub

如果我尝试：

objListObj.Resize Range("A1:D15)")

代码工作正常，否则我收到错误。任何想法？
我也尝试过：

 objListObj.Resize objListObj.Resize Range(IncreasedRange)