title: VBA Find Blank Cells and insert text
body: <p>I have data in column A on my workbook, they are grouped with spaces in between them. I need VBA to find first empty cell and add text "Progress" then find the next empty cell and add text "Plan"</p>
  
  <p>The codes below are only adding the same text to each blank, how can I tell it once first blank if filled, move to next blank and add XXX text?</p>
  
  <pre><code> Sub getnext()
  
  lastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 1 To lastRow
      If IsEmpty(Cells(i, 1)) Then
        Cells(i, 1).Value = "Progress"
        Cells(i, 1).Value = "Plan"
      End If
  Next i
  
  End Sub
  
  
  
   Sub FirstEmpty()
  lRow = Range("A" &amp; Rows.Count).End(xlUp).Row
  Set MR = Range("A1:A" &amp; lRow)
  For Each cell In MR
  If cell.Text = "" Then cell.Value = "Progress"
  
      Next
  
  End Sub
  </code></pre>