title: Copying values from one Table to the first empty row in another Table
body: <p>As part of my project I have a Table which includes lookup formulas in each column that are dragged down the whole table. Depending on the case only the first x rows return values. I included an iferror so that the lookups that don't return values return "". </p>
  
  <p>Now I want to copy the rows of the table that return values to the first empty row in a different table in a different worksheet.</p>
  
  <p>The code I have so far: 
      Sub Copy_Results()</p>
  
  <pre><code>Application.ScreenUpdating = False
  Dim copySheet As Worksheet
  Dim pasteSheet As Worksheet
  
  Set copySheet = Worksheets("Sheet1")
  Set pasteSheet = Worksheets("Sheet2")
  
  copySheet.Range("Table1").Copy
  pasteSheet.ListObjects("Table2").Range.Cells(Rows.Count,  1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
  
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
  End Sub
  </code></pre>
  
  <p>Now the big problem is that I want to be able to execute this macro multiple times, each time the values from Table 1 should be pasted below the preexisting values in table 2.</p>
  
  <p>The point being that each time the lookup values change meaning I get new results I want to paste them in a table where all the results are documented.</p>
  
  <p>Issues that I had so far:
  The first Copy Paste usually works, but when I copy again the values get pasted way below the first ones outside of the table. Usually the full length of the table away. I guess this is because the whole copy table is filled with formulas.</p>