Resize Listobject Table dynamically with VBA
<p>I want to change the size of the object tables through VBA, I tried modifying the code from MSDN about the <code>listobject.resize</code> method, but I want to dynamically if a data loaded in each row.</p>

<p>The code I'm trying but to no avail:</p>

<pre><code>Sub resizedata()

    Dim ws As Worksheet
    Dim ob As ListObject
    Dim Lrow1 As Long

    Lrow1 = Sheets("db_goods").Cells(Rows.Count, "E").End(xlUp).Row
    Set ws = ActiveWorkbook.Worksheets("db_goods")
    Set ob = ws.ListObjects("Table1")

    ob.Resize Range("A1" &amp; Lrow1)

End Sub
</code></pre>

<p><a href="https://i.stack.imgur.com/M1lSj.jpg" rel="noreferrer"><img src="https://i.stack.imgur.com/M1lSj.jpg" alt="enter image description here"></a></p>