title: Do Until ActiveCell is empty
body: <p>With the below code I am trying to copy a value from an XLS (initialVal) and paste to a GUI text field. Then, I want to enter a loop and get the next value (nextVal) using the <code>ActiveCell</code> call and offset (move down one row).
  I want to keep retrieving(and pasting to GUI) the next value in the next row (same column) until it finds an empty cell.</p>
  
  <p>With the code below that I am working on, it pastes the initial value fine (2,7), but then it continually pastes (in an endless loop) the first 
  row/column and doesn't seem to increment/offset through the values, i.e. The expectation is:</p>
  
  <pre>
  (2,7) Initial Value
  (3,7) Next Value
  (4,7) Next Value
  (5,7) Next Value
  (6,7) Next Value etc etc until empty
  </pre>
  
  <pre><code>Set objExcel = CreateObject("Excel.Application")
  Set objWb = objExcel.Workbooks.Open("C:\test.xlsx")
  Set objSheet = objWb.Worksheets("sheet1")
  
  Set initialVal = objSheet.Cells(2, 7)
  
  'At this point code (TBC, not required to highlight this issue) will paste the
  'initialVal to a text field in the GUI and subsequently clear/delete the field
  
  Sub test1()
      Set nextVal = ObjExcel.ActiveCell
  
      Do Until IsEmpty(nextVal)
          nextVal.Offset(1, 0).Select
          'Again, at this point the code will paste the nextVal to the GUI (and
          'subsequently clear it) , loop back and move down one cell and paste that
          'next cell until it hits an empty cell and come out of the loop
      Loop
  End Sub
  
  Call test1
  </code></pre>