title: Copy values of all visible cells in one listobject to another empty listobject?
body: <p>I have a listobject that has tons of rows but is filtered to show only a subset of these:</p>
  
  <pre><code>Dim loComplete as Listobject
  </code></pre>
  
  <p>I have another listobject. I want to copy visible values from a certain column in loComplete into a certain column in this listobject. </p>
  
  <pre><code>Dim loOnlyFiltetedValues as ListObject
  </code></pre>
  
  <p>Both the source column and target columns are called "Course code"</p>
  
  <p>My best attempt so far is:</p>
  
  <pre><code>Dim courseCode As Variant
  courseCode = loComplete.ListColumns("Course Code").DataBodyRange.SpecialCells(xlCellTypeVisible)
  loOnlyFiltetedValues.ListColumns("Course Code").DataBodyRange = courseCode
  </code></pre>
  
  <p>But that doesn't work. Do you know of any elegant way of solving this?</p>