Repetir la fila dependiendo del valor de la celda

Hola a a todos
tengo otra duda
a continuacion el codigo
Sub Botón1_AlHacerClic()
Dim Origen As Range, Fila As Integer
Fila = 2
Busca:
If Worksheets("matrix").Range("a" & Fila) = "" Then GoTo Salida
On Error Resume Next
With Worksheets("Proc.base")
Set Origen = .Cells.Find( _
What:=Worksheets("matrix").Range("a" & Fila), _
After:=.Range("a2"), _
LookAt:=xlWhole)
If Not Origen Is Nothing Then
Origen.Resize(9).EntireRow.Copy _
Destination:=Worksheets("hoja3").Cells(Rows.Count,
"a").End(xlUp).Offset(2)
Else: MsgBox Worksheets("matrix").Range("a" & Fila) & " NO se
encuentra !!!"
End If
End With
Fila = Fila + 1
GoTo Busca
Salida:
Set Origen = Nothing
End Sub

mi problema es el siguente:
ahora tengo una columna que contiene numeros del 1 al 5
ejemplo
fila1 columna V :
fila2 2
fila3 3
fila4 1
..
ahora quiero que dependiendo del numero que aparezca en la columna V
sera el numero de veces que se repitan los renglones que se copio en
el codigo(ya que solo se copia una ves) y ahora quiero que se repita
el numero de veces

para mas facil de entender
Quiero que me repita las filas dependiendo del numero que aparezca en
la columna)

o a que correo puedo mandar el archivo para mejor entendimiento

gracias, suerte