Изменить размер таблицы Excel до значения по умолчанию

Question

Я пытаюсь изменить размер таблицы Excel до стандартного значения 4 строки и 6 столбцов, которое я могу сделать для столбцов, но все еще вижу пустые строки на основе содержимого ранее.

Sub ClearTableContents()
Dim wrksht As Worksheet
Dim objListObj As ListObjects
Dim tableName As String
Dim ActiveTable As ListObject

Dim ActiveRange As Range

Set wrksht = ActiveWorkbook.Worksheets("Sheet1")
Set objListObj = wrksht.ListObjects
With objListObj
  For i = 1 To objListObj.Count
     tableName = objListObj(i).Name
     Set ActiveTable = ActiveSheet.ListObjects(tableName)
     'ActiveTable.DataBodyRange.Rows.ClearContents
     objListObj(i).DataBodyRange.Rows.ClearContents
     On Error Resume Next
     'objListObj(i).DataBodyRange.Resize(objListObj(i).DataBodyRange.Rows.Count - 4, 
     objListObj(i).DataBodyRange.Columns.Count - 6).Rows.Delete
     objListObj(i).DataBodyRange.Resize(4, 6).Rows.Delete
     If Err.Number <> 0 Then
      ' process Error
       MsgBox "Error: (" & Err.Number & ") " & Err.Description, vbCritical
     End If

     Next i
   End With

  End Sub

Answer 1

Это оставит заголовок и три строки, поэтому отрегулируйте в соответствии с требованиями.

Sub x()

With ActiveSheet.ListObjects(1)
    .Range.Rows("5:" & .Range.Rows.Count).Delete
    .Resize .Range.Resize(4, 6)
End With

End Sub