Add Rows to a table

[Chuckarou]

Hello all,
I would like to have a macro that adds 50 rows to a table when a button is pressed, and auto populate with my formulas. I have tried using the macro recorder, to no avail. I also tried with loops, but it doesn't work either. the reason why I need this is that this table is a visual reference for the users, and so has to always contain the latest data.

Thanks in advance,
Chuckarou

 

[igold]

Assuming the name of your Table is "Table1", how about this...

Sub ResizeTable()


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


End Sub

 

[Chuckarou]

You are gold indeed, works like a charm. Thanks so much!

 

[igold]

You're welcome. I was happy to help. Thanks for the feedback!