Saludos, necesito un código de ciclo for que genere varios registros variando un par de campos

Saludos

Tengo un código de ciclo FOR que genera registros en base a un frecuencia pero los registros nuevos que genera los pone en blanco no he podido detectar algún error de código pordrian ilustrarme sobre el tema.

Gracias

Adjunto el código:

Private Sub ComGenFrec_Click()
'Declaramos las variables
Dim numRec As Integer
Dim i As Integer
Dim vFecha As Variant
Dim Incr As Integer
'Cogemos los valores del formulario
Incr = Nz(Me.TextFrecDias.Value, 0)
numRec = Nz(Me.TextTotRep.Value, 0)
vFecha = Nz(Me.TextFechProp.Value, 0)
For i = 1 To numRec - 1 'Quitamos uno porque ya tenemos el inicial
'Seleccionamos el registro actual
DoCmd.RunCommand acCmdSelectRecord
'Copiamos el registro actual
DoCmd.RunCommand acCmdCopy
'Nos vamos a un nuevo registro
DoCmd.RunCommand acCmdRecordsGoToNew
'Volvemos a seleccionar el nuevo registro
DoCmd.RunCommand acCmdSelectRecord
'Pegamos los valores en los campos
DoCmd.RunCommand acCmdPaste
'Modificamos el número de recibo
With Me
'Sumamos un número al recibo
numRec = i + 1
'Lo escribimos
.TextSecTar.Value = numRec
'Añadimos El incremento en base a la frec en dias
vFecha = vFecha + Incr
'Lo escribimos
.TextFechProp.Value = vFecha
End With
'Nos movemos al siguiente recibo
Next i
End Sub