title: How to copy and paste dynamic table values in next empty cell?
body: <p>I'm looking to select cells with values from a dynamic table, and copy and paste these values into another worksheet with a table where the next empty cell is available.</p>
  
  <p>I've only been able to find code that will copy and paste a defined range into the next empty cell or copy and paste a dynamic range with some values and empty cells.</p>
  
  <pre><code>Sub SaveKit_1()
  
  Dim wsCopy As Worksheet
  Dim wsDest As Worksheet
  Dim lCopy As Long
  Dim lDest As Long
  
    Set wsCopy = Worksheets("Kit_db") 'Copies table from Kit_db worksheet
    Set wsDest = Worksheets("Kit_db (1)") 'Pastes table to Kit_db (1) worksheet
  
    lCopy = wsCopy.Cells(wsCopy.Rows.Count, "E").End(xlUp).Row
    lDest = wsDest.Cells(wsDest.Rows.Count, "E").End(xlUp).Offset(1).Row
  
    'Copies any cell within the table
    wsCopy.Range("B3:I" &amp; lCopy).Copy _ 
       wsDest.Range("B" &amp; lDest)
  
  End Sub
  </code></pre>
  
  <p>All cells in the dynamic table are copied and pasted rather than the cells in the table with values. I'm looking to paste values only as some cells in the dynamic table have formulas.</p>
  
  <p>I have tried the following Paste Special</p>
  
  <pre><code>   PasteSpecial _
     Paste:=xlPasteValuesAndNumberFormats, _
     Operation:=xlPasteSpecialOperationNone, _
     SkipBlanks:=True, _
     Transpose:=False
  </code></pre>
  
  <p>But I don't think I placed it correctly with the existing code or I'm using the wrong type of code for paste.</p>