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
listobject.resize
The problem is Range("A1" & Lrow1) returns a Range of $A$112, because you are passing the Range function the result of the catenation of "A1" & "12".
Range("A1" & Lrow1)
$A$112
Range
"A1" & "12"
Try replacing this line:
ob.Resize Range("A1" & Lrow1)
With this one:
ob.Resize ob.Range.Resize(Lrow1)