title: VBA Excel Copy Table Values only to another sheet
body: <p>I am trying to copy only the values from a table to a different sheet, however the below code is only copying the formulas thus losing references. I have tried different solutions such as adding .Value to .DataBodyRange.Copy Cells(i,1) however didn't work.</p>
  
  <p>Thanks for your help</p>
  
  <pre><code>Sub loadData()
  Application.AutoCorrect.AutoFillFormulasInLists = False
  Dim wsh As Worksheet, i&amp;
  Application.ScreenUpdating = 0
  With ActiveSheet.ListObjects(1)
      If ActiveSheet.FilterMode Then .Range.AutoFilter
      .DataBodyRange.Delete
      i = 4
      For Each wsh In ThisWorkbook.Worksheets
          If wsh.Name &lt;&gt; "Template"  Then
              With wsh.ListObjects(4)
                  .DataBodyRange.Copy Cells(i, 1)
                  i = i + .ListRows.Count
              End With
          End If
      Next wsh
      .Range.AutoFilter Field:=5
  End With
  Application.ScreenUpdating = 1
  End Sub    `
  </code></pre>