Problema actualizando recordset

Buenas, os planteo el siguiente ejemplo
Fila Campo1
1 Dato1
2 Dato2
3 Dato3
4 Dato3
5 Dato5
Tengo la tabla anterior en un excel y me gustaría actualizarla con los valores 1;2;3;4;5. Para ello tengo el siguiente código.
'--Código que funciona--
For i = 0 To UBound(Datos)
.Update "Titulo", Datos(i)
.MoveNext
If .EOF = True Then
Exit For
End If
Next i
'--Código que funciona--
Sin embargo cuando llega a la fila 3, como el valor que está es igual al de la fila 4 entra en shock y me arroja el error: "-2147467259, Información de columna de clave insuficiente o incorrecta; demasiadas filas afectadas por la actualización."
¿Podríais ayudarme a solucionarlo?