Quiero pegar un dato solo tres veces debajo de lo que ingreso

Tengo este código dentro de una macro y de un formulario:}

REPETIR = "3"
ActiveSheet.Cells(fila, 1).Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
For q = 1 To REPETIR
ActiveSheet.Paste
Range("A65000").End(xlUp).Offset(1, 0).Select
Next q
Application.CutCopyMode = False
ActiveSheet.Cells(fila,1).Select

Lo que quiero es que lo pega después de que ingreso un dato en a2 en lo que esta sombreado