title: Copying rows from one listobject to another using Excel VBA
body: <p>I want to create a peice of VBA code which will select the first 10 rows from a ListObject and then paste them into another ListObject.  Once a collection of rows has been copied to the new sheet, they will be processed, then the next 10 rows will be selected and processed, and so on.  </p>
  
  <p>I can achieve this using standard VBA functions, but I would like to achieve this using the ListObject, i.e.</p>
  
  <pre><code>Sub PopulateSectionOfData()
  
      Dim loInput As ListObject
      Dim loOutput As ListObject
      Dim intNumOfColumns As Integer
      Dim rngToCopy As Range
      Dim intRowsInFile As Integer
  
      ' Create the inout and output ListObjects
      Set loInput = Worksheets(WS_INPUT).ListObjects(LO_INPUT)
      Set loOutput = Worksheets(WS_OUTPUT).ListObjects(LO_OUTPUT)
  
      ' Delete all the current rows from the output table
      Worksheets(WS_OUTPUT).ListObjects(LO_OUTPUT).DataBodyRange.Delete
  
      ' Set variables
      intNumOfColumns = loInput.ListColumns.Count
      WorkbookCounter = 1
      intRowsInFile = 10                   ' Select 10 records at a time
  
      ' Get 10 records at a time from the input file
      For i = 1 To loInput.DataBodyRange.Rows.Count Step intRowsInFile - 1
  
          '???? - This is the area that i am unsure on
          Set rngToCopy = loInput.DataBodyRange(p, 1)
          rngToCopy.Copy loOutput
  
          '????
  
          ' TODO - Add further processing here
      Next i
  
      ' Clear used objects
      Set loInput = Nothing
      Set loOutput = Nothing
  
  End Sub
  </code></pre>
  
  <p>Any help on this matter would be most appreciated as I would like to use ListObjects</p>
  
  <p>Thank you in advance</p>