title: Building a Do Until loop to loop a column until empty cell
body: <p>I'm having trouble building a do until loop that will loop the column D starting at D4 and keep repeating the Select Case function until it comes across an empty cell. Attached is my code. I apologize if this is a redundant question, I've tried everything I've found and it's not working so I'm wondering if something else in code is messing it up. </p>
  
  <pre><code>Sub FindSupervisior()
      Dim Position As String
  
      range("D4").Select
      Position = ActiveCell
  
       'i need to add a loop around this section to do the entire column until empty
        Select Case Position
              Case "Woodyard / Pulp E&amp;I"
                  Position = "Boss A"
              Case "Maintenance - Primary Pro"
                  Position = "Boss B"
        End Select
        ActiveCell.Offset(, 1).Value = Position
        ActiveCell.Offset(1, 0).Activate
  
  End Sub
  </code></pre>