Agregar fechas faltantes VBA

Tengo que insertar fechas faltantes en una fila sin eliminar las fechas duplicadas (para un programa de facturación). Datos de ejemplo:

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

Mi código está haciendo un bucle infinito y eliminando las fechas duplicadas. ¿Por qué pasó esto?

Sub InsertMissingDates()

Dim i As Long
Dim RowCount As Long

i = 4

Do
    If Cells(i, 1) + 1 <> 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