Resize Listobject Table dynamically with VBA

Question

I want to change the size of the object tables through VBA, I tried modifying the code from MSDN about the listobject.resize method, but I want to dynamically i

Answer 1

If you need to resize only the row-dimension:

Dim tbl As ListObject

Set tbl = ActiveSheet.ListObjects("YourTableName")
With tbl.Range
    tbl.Resize .Resize(.CurrentRegion.Rows.Count) 'NOTE: unlike the Range.Resize proprty, the Table.Resize
                                                  'method's argument is a Range object (not a size spec).
End With

Resizing only the column-dimension would be symmetrical:

With tbl.Range
    tbl.Resize .Resize(, .CurrentRegion.Columns.Count)
End With