Table: Number of Rows

[gheyman]

I have a Table where the user enters data. Is there a way to add a certain number of rows to a table based on a number in a cell?

If the User wants to add 10 Items to the Table. They would then put "10" in cell B5. I would then need to expand the table by 10 rows (or what ever number they enter)

Is this possible?

 

[NoSparks]

from https://www.thespreadsheetguru.com/blog/2014/6/20/the-vba-guide-to-listobject-excel-tables

'Expand Table size by 10 rows
  Set tbl = ActiveSheet.ListObjects("Table1")
  
  Set rng = Range("Table1[#All]").Resize(tbl.Range.Rows.Count + 10, tbl.Range.Columns.Count)
  
  tbl.Resize rng

 

[gheyman]

Thanks, but I didn't mean 10 specifically. I meant what ever number the user entered into cell B5 (it could be 10, 2, 18.....)

 

[NoSparks]

Sorry, with over 15 hundred posts, I assumed you would be familiar with variables, my bad.
Add the red line and use the variable x

'
Set tbl = ActiveSheet.ListObjects("Table1")

x = Range("B5").Value
  
Set rng = Range("Table1[#All]").Resize(tbl.Range.Rows.Count + x, tbl.Range.Columns.Count)
  
tbl.Resize rng