title: Run-time Error: 1004 Application-defined or Object-defined error
body: <p>I'm getting a run-time error when I run the following code:</p>
  
  <pre><code>Application.ScreenUpdating = False
  Application.Calculation = xlCalculationAutomatic
  Application.DisplayStatusBar = False
  Application.EnableEvents = False
  
  Dim c, OrgList, vtList, FndRng As Range
  Dim Tbl As ListObject
  Dim NewRow As ListRow
  Dim Org, Track As Worksheet
  
  Set Org = ActiveWorkbook.Worksheets("Org List")
  Set Track = ActiveWorkbook.Worksheets("Visit Tracking Sheet")
  Set Tbl = Track.ListObjects("TrackTbl")
  Set OrgList = Org.Range(Cells(2, 1), Cells(Org.UsedRange.Rows.Count, 1))
  Set vtList = Track.Range("TrackTbl[Org ID]")
  </code></pre>
  
  <p>Everything runs fine until I get to <code>Set ChngList = Track.Range("TrackTbl[Org ID]")</code> which throws the <code>Run-time Error: 1004</code>. I have tried also the following replacement lines, all of which throw the same error:</p>
  
  <ul>
  <li><code>Set vtList = Tbl.Range(Cells(2, 1), Cells(ListRows.Count, 1))</code></li>
  <li><code>Set vtList = Track.Range(Cells(2, 1), Cells(Track.UsedRange.Rows.Count, 1))</code></li>
  <li><code>Set vtList = Track.Tbl.Range(Cells(2, 1), Cells(ListRows.Count, 1))</code></li>
  <li><code>Set vtList = Tbl.Range</code></li>
  </ul>
  
  <p>I'm at a loss on this one and have had trouble finding a solution for this. I assume it is an issue with setting the Range referencing cells in a Table but am not sure.</p>