Move data from a userform to a table but getting error

Hi,

Here is my code

Please Login or Register  to view this content.

This code works fine when run once and it adds my new data but if I run it again with more data I get an error application defined or object error and it highlights "Set lastRow = .ListRows.Add"

Is there a better way to add a row to a table and add values to that new row?

Thanks

In the attached is the usual method/code I apply to addition/removals.

Hi Torachan,

Thanks for sharing your file. It works exactly how I need it to but when I use the codes and adapt it to my worksheet I am still getting runtime errors when adding more than two new rows.

Would this be anything to do with memory usage and is there any way I can fix this?

Thank you for your help

To your first question - post #1
Before reusing "Set lastRow = .ListRows.Add" you should release the object assignment (Set lastRow = Nothing) or use scheme with "With ... End With"

To your second question - post #3
Show your-torachan code adaptation

Hi Colin7
Just seen this post, I think you have possibly answered your own question.
Your upper table is probably trying to run into the lower table.
If you are still having trouble post a de-sensitised copy of your file.
I have applied this approach to many apps and never encountered problems.
torachan.

Hi Torachan,

Thanks for your help with this. I added the new row to the top of the table which seems to have fixed the problem.

thank you