Numerar filas insertadas mediante bucle for

Un experto me ayudo ( marcrodos) y de buena forma con mi proyecto , pero me encontré con otro problema que por mis pocos conocimientos no me permite sortear.

Explico este es mi código para inserta registros con repeticiones . El problema es que en la columna "E" y "F" van numeradas,( con series diferentes)

Al insertar de una vez 2 o más filas me las numera de con el mismo valor.

Tanto en la celda E10 y F10 están los valores iniciales

Por lo tanto lo que pretendo es que al dar entrada a un ingreso con el campo de repeticiones ej 3 me numere 1001 en E11 1002 en E12 1003 en E13 si E 10 es =1000

Espero haber explicado claro

Gracias

de antemano

Sheets("PRODUCCIÓN").Select
Range("A11").Select
Dim fecha As Double
Dim litros As String
Dim tipo As String
Dim marca As String
Dim sello As Double
Dim matricula As Double
Dim repeticiones As Double
fecha = Calendar2.Value
litros = CBoxlt.Value
tipo = CBoxtipo.Value
marca = CBoxmarca.Value
sello = TextBox11.Value
repeticiones = txtcantidad.Value
For i = 1 To repeticiones
Cells(i + 10, 1).EntireRow.Insert
Cells(i + 10, 1) = fecha
Cells(i + 10, 2) = litros
Cells(i + 10, 3) = tipo
Cells(i + 10, 4) = marca
Cells(i + 10, 5) = sello
Cells(i + 10, 6) = matricula
Next i
End Sub