title: Paste data - ranges of Listobjects in other Listobject of Excel
body: <p>I am using VBA to move data between tables in excel (ListObjects)
  And I want to avoid loops for they are too much time consuming</p>
  
  <p>I have a first (origin) table called:tabl1
  and a second origin table: tbl2</p>
  
  <p>I have a destiny table called:tbl3
  this table is empty, so databodyrange is nothing</p>
  
  <p>I would like to paste data from the two origin tables tbl1 and tbl2 into tbl3</p>
  
  <pre><code>Dim tbl1 As ListObject
  Dim tbl2 As ListObject
  Dim tbl3 As ListObject
  Set tbl1 = ThisWorkbook.Sheets(1).ListObjects("table1")
  Set tbl2 = ThisWorkbook.Sheets(1).ListObjects("table2")
  Set tbl3 = ThisWorkbook.Sheets(1).ListObjects("table3")
  
  'delete the data of table 3
  If Not tbl3.DataBodyRange Is Nothing Then
      tbl3.DataBodyRange.Delete
  End If
  
  'Adding a first row to avoid that databodyrange isnothing
  tbl3.ListRows.Add
  'this code does not work
  'What I try to do is copy the range of column1 of table1 and paste it in the first 
  tbl1.ListColumns(1).DataBodyRange.Copy Destination:=tbl3.ListColumns(1).DataBodyRange.Item(1).Address
  </code></pre>
  
  <p>I dont want to use loop (too slow)
  And I dont want to use ".select": too error-prone.</p>
  
  <p>And of course, the data pasted in table three has to be part of the table.</p>
  
  <p>In this link I posted myself (and answered) a partial solution to the problem: 
  <a href="https://stackoverflow.com/questions/52035816/excel-copy-data-from-several-columns-of-listobject-a-tablea-into-one-column-of">Excel copy data from several columns of listobject A (tableA) into one column of listobject B (tableB) one after the other</a></p>
  
  <p>but I would really like to find a solution referring only to the name of listobjects and not to absolute positions in a sheet (otherwise moving the listobject would invalidate the solution).</p>
  
  <p>Here is the problem illustrated. Be aware that I put the three tables in one sheet for clarity purposes but the tables are distributed in different sheets.
  <a href="https://i.stack.imgur.com/Ma7iW.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/Ma7iW.png" alt="enter image description here"></a></p>
  
  <p>This is the desired result:
  <a href="https://i.stack.imgur.com/osCeP.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/osCeP.png" alt="enter image description here"></a></p>