Copiar un rango de celdas dependiendo de un valor de otra.

Utiliza la siguiente macro

Sub copiar()
'Por.Dante Amor
    For i = Range("C" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Cells(i, "C") > 1 Then
            For j = 1 To Cells(i, "C") - 1
                Rows(i).Copy
                Rows(i).Insert Shift:=xlDown
            Next
        End If
    Next
End Sub

Esto es suponiendo que tu columna de "Número de pagos" es la "C", si es otra columna, cambia en la macro donde diga "C" por la columna en donde se encuentre el número de pagos.

Sigue las Instrucciones para ejecutar la macro

1. Abre tu archivo de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Para ejecutarla presiona F5

Hola, Gracias por tu respuesta es buena. Estuve buscando soluciones pero no encontraba nada.

Solo unas preguntas mas:

En ocasiones tengo celdas con #¡VALOR! y al ejecutar la macro sale error, y quiero que la macro haga lo mismo que hace con el 1 no los tome en cuenta y siga con las demás celdas.

Otra cuestión es que la macro la quiero ejecutar con un botón pero me sale error 13.

Pienso que es por que el ciclo sigue ya que si lo ejecuto paso a paso F8 lo sigue haciendo cíclico, y solo quiero que lo haga solo una ves, por celda.

Espero me puedas ayudar, GRACIAS por todo.