Como hacer que un registro se inserte varias veces el mismo dato desde formulario con macros.

hola:
TENGO un formulario que inserta un registro mediante un botón asignándole un numero correlativo.
este es el código que utilizo, pero necesito que este registro se ingrese n veces yo le indique:
Private Sub CommandButton1_Click()
Sheets("Registro").Select
Dim x As Integer
Aplication.Goto reference = "R1C1"
Selection.End(xlDown).Select
ActiveCell.Offset.Range("A1").Select
x = ActiveCell.Value
x = x + 1
ActiveCell.Offset(1, 0).Range("A1").Value = x 'inserto código sera correlativo
ActiveCell.Offset(1, 1) = txtnombre.Text 'ingreso nombre ingresado por usuario
ActiveCell.Offset(1, 2) = txtnombre.Text 'ingreso segundo dato
Aplication.Goto reference = "R1C1"
Aplication.CutCopyMode = False
ActiveWorkbook.Save
End Sub
Que tendría que modificar para que se ingrese los mismos datos varias veces sin variar el correlativo(el nro de veces lo obtengo contando lo que pego de otra hoja)

Gracias