Copiar filas n veces de acuerdo a una celda

Interesante situación la tuya. Te dejo el código. Me avisas si anda
PD: Debes lanzarla desde la primera celda que quieres que se copie
**************************
Sub RepetirRegistro()
'Creada por FSerrano en 110525
'Para dfcalderon en TodoExpertos.com
'Desactiva la actualización automatica de pantalla, para hacer el proceso más rapido
Application.ScreenUpdating = False
'Captura la ultima columna del rango
ultimacolumna = Selection.End(xlToRight).Column
'Captura el nombre del libro actual
librobase = ActiveWorkbook.Name
'Crea un nuevo libro y captura su nombre
Workbooks.Add
libronuevo = ActiveWorkbook.Name
'Vuelve al libro original
Workbooks(librobase).Activate
'Repite el bucle mientras la celda contenga valores
While ActiveCell <> ""
    'Copia toda la fila a excepción de la ultima columna
    Range(ActiveCell.Address, Cells(ActiveCell.Row, ultimacolumna - 1)).Copy
    'Captura el numero de veces que debe repetirse el registro actual
    bucle = Cells(ActiveCell.Row, ultimacolumna).Value
    'Va al libro nuevo y pega los datos copiados
    Workbooks(libronuevo).Activate
    For i = 1 To bucle
        ActiveCell.PasteSpecial xlPasteAll
        ActiveCell.Offset(1, 0).Activate
    Next
    'Vuelve al libro base
    Workbooks(librobase).Activate
    ActiveCell.Offset(1, 0).Activate
Wend
'Activa el libro nuevo
Workbooks(libronuevo).Activate
'Activa la actualización automatica de la pantalla
Application.ScreenUpdating = True
End Sub
******************************