Resize Table using values in certain cells

[excelakos]

Hi to all.

I ve been searching around but found nothing similar except the code i will paste below (hope to do it properly)
What i look for is to resize a table to specific rows and columns. How many rows and columns will be given by values in specific cells.

So in the following code i managed to find

Sub ResizeTable()

Dim rng As Range
Dim tbl As ListObject

'Resize Table to 7 rows and 5 columns'
  Set rng = Range("Table1[#All]").Resize(7, 5)
  
  ActiveSheet.ListObjects("Table1").Resize rng
End Sub

Is it possible to replace

.Resize(7, 5)

with something like

.Resize("B2", "B3")

with B2, B3 belonging to the same sheet with the table?

Thank you in advance

 

[Fluff]

How about

Sub ResizeTable()

Dim rng As Range
Dim tbl As ListObject

'Resize Table to 7 rows and 5 columns'
  Set rng = Range("Table1[#All]").Resize(Range("B2").Value, Range("B3").Value)
  Set tbl = ActiveSheet.ListObjects("Table1")
  tbl.Resize rng
End Sub

 

[excelakos]

How about

Sub ResizeTable()

Dim rng As Range
Dim tbl As ListObject

'Resize Table to 7 rows and 5 columns'
  Set rng = Range("Table1[#All]").Resize(Range("B2").Value, Range("B3").Value)
  Set tbl = ActiveSheet.ListObjects("Table1")
  tbl.Resize rng
End Sub

Dear Fluff
Thank you for your answer. Unfortunately it does not work

Run-time error '1004':

Application-defined or object-defined error

 

[Fluff]

Do you have a table called table1 on the active sheet?

 

[excelakos]

Do you have a table called table1 on the active sheet?

Hi again..
Probably i was pasting something the bad way...
So now it works...THANK YOU A LOT
Something additional.
1)Is there any way that when i set fewer rows than the existing, data is deleted from those cells which now are left out of the table range?
2)Is there any way that the value i input in the cell reffering to rows to represent actual data cells?I mean we have the header and the totals in the table. Right now if i set value 10 in cell, i get only 8 clear rows.

 

[Fluff]

Duplicate https://www.mrexcel.com/forum/excel...les-rows-columns-expand-based-cell-value.html

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).