title: Add missing dates VBA
body: <p>I have to insert missing dates to a row without deleting the duplicated dates (for a billing program).  Example data:</p>
  
  <pre><code>DATE
  01/02/2016    
  02/02/2016    
  03/02/2016    
  03/02/2016    
  03/02/2016    
  06/02/2016    
  07/02/2016    
  08/02/2016
  </code></pre>
  
  <p>My code is infinitely looping and deleting the duplicate dates.  Why does this happen?</p>
  
  <pre><code>Sub InsertMissingDates()
  
  Dim i As Long
  Dim RowCount As Long
  
  i = 4
  
  Do
      If Cells(i, 1) + 1 &lt;&gt; Cells(i + 1, 1) Then
          Rows(i + 1).Insert
          Cells(i + 1, 1) = Cells(i, 1) + 1
      End If
      i = i + 1
  Loop Until Cells(i + 1, 1) = "31.10.2016"
  
  End Sub
  </code></pre>