VBA Excel 2010 - How to add or insert data to last row in a Table

VBA Excel 2010 - How to add or insert data to last row in a Table
Handy Excel Resources

As an Amazon Associate, I earn from qualifying purchases. Product prices and availability are subject to change.

[Phillyo]

NO where on any search did I find this, finally searched on youtube and bam. Godsend man, thanks.

[shoaibtahir]

I was begining to think I should give up on tables
You SAVED my TABLES!!. Thanks a Ton ^_^

[guiweb]

Man, it's 2018 and still: I searched thousand of posts and just here I found the right answer!!! You're God!!!

[samirs]

Comments are 5 years old but still working perfectly even now :) Thank a lot

[letmypplego]

Almost 8 years later -- still great video. Thanks.

[Abbey]

You're a life saver! thank you so much for the video!

[SinishaThompsonGathaPrincess]

Thank you so much for this! Great job!

[karencrouch]

This is fantastic and just what a needed!
Instead of finding the last row as you did I just kept using the first example you had of putting the data in range(1, 1) then just keep changing the column index number to put in the next column's worth of data in and so on. That way I didn't need to find the last row or worry about what the column letter was.

[AvengerArts]

Alex, May Allah bless you for the rest of your life!!!

[renaldotheidaddude]

Hi Alex - hunted high and low until I found this - thanks - exactly what I was looking for!

[davidlomax]

This code makes sense to me but I seem to be missing something. I am aware this is an old post, I am hoping Alex C. or someone is still monitoring this thread.

Here is the code I wrote from your video

Sub test()
Dim the_sheet As Worksheet
Dim table_list_object As ListObject
Dim table_object_row As ListRow
Set the_sheet = Sheets("Lists")
Set table_list_object =
Set table_object_row = table_object_ListRows.Add

table_object_row.Range(1, 1).Value = "testing category"

"Category"

End Sub

I get a "Run-time error '9': Subscript Out of Range" on the code in the 6th line more specifically

More info:
My Sheet name is "Lists"
My Table Name is "Category"
I changed the code to use the TableName as was used in the Remmed statement for Active sheets, As I have several tables on that page and no idea which number is which. I did try several numbers hoping to guess the table name but they all came up with the same error.

I would greatly appreciate any help with this possible, Thank you in advance for your patience and time.

[Achinthac]

මේක නම් නියමයි | This is nice tutorial ... it make my project comes to alive ... very very easy Technic .... Thanks ...

[Bmanosalva]

you are a genius!! thanks!! :) worked like a charm!

[Navidamd]

Very helpful! thank you so much for sharing.🙂

[beyhanismail]

Hello there. I can find the row below the last processed row on the worksheet. My question is how can I find the last row between the waistline of two columns. (A:D) find me the last row between the columns

[lschan]

easy to understand! But the problem is I want to copy the data from another sheet and paste to the table, any idea on how to modify this code?

[dharshiniramesh]

can I get the video link for adding or inserting data to last row in the excel sheet

[psbjr]

Very concise and easy to understand, thanks.

[cassfromthefloss]

Hey how can i find the next empty row and create a row as a macro

[Alainbigio]

Thank you VERY much. It really did solve my problem