Append table values from one workbook to existing table in another workbook

Hello,

I am new to VBA and am working on my first serious use of VBA to automate some things in my forecast spreadsheet.

I have a workbook each containing a worksheet named "Details" with a table named "Tabel1".
I want to copy the values of table "Tabel1" and append those to the top (or bottom) of table "Tabel2" on worksheet "Blad2".
I have been able to write code which copies and overwrites it, but I can't find how to append it.

Code used for copy:

Sub Append()

'Append values of table 1 to table 2
Range("Tabel1").Copy
Sheets("Blad2").Range("Tabel2").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

End Sub

See the attached file which is a test version I am working with to develop the basic code.

Thanks in advance for your help and advice.

Hi,

Put this con in a module and try it

Please Login or Register  to view this content.

Regards,
Elio Fernandes

Hello Elio,

I tried it and it works.
Thanks for your help.


Regards,
****