Need help with a macro to add lines at the bottom of a table

[Arcadia]

I need help with a macro to add a specific number of lines to the bottom of a table. I currently have this:


NoRows = InputBox("How many rows?")
Rows(Range("A" & Rows.Count).End(xlUp).Row).Resize(NoRows).Insert


which is able to add a variable number of rows, based on user input, but it adds the rows at the first from the bottom, rather than the bottom.

Any help would be appreciated.

[Arkadi]

Hi Arcadia,

Please review rule #3 on the forum rules regarding code tags. That said, change your code to this:

Please Login or Register  to view this content.

[Arcadia]

Apologies for the lack of code tag.

The +1 addition to the code does make it add below, but it adds outside of the table, rather than at the bottom of the table. Maybe I need to resize the table (based on user input), rather than add to it?

[Arkadi]

I'm not sure how to add more than one row at a time using the listrow method, but using a little loop this should work:

Please Login or Register  to view this content.

I should have elaborated... Change the sheet and table name in the code of course.