AYUDA CON MACROS

[Pierito]

Saludos, necesito ayuda con una macros que funciona bien,  pero ahora que ingreso datos en la columna "P", no lo muestra en la columna "Z".

adjunto archivo, agradezco su ayuda.

macros.xlsm

[Janlui]

Pega esto en un módulo:

Sub genera_cuadro()
    Range("r6:z18").ClearContents
    rd = 6
    rs = 6
    Do While Cells(rd, 1) <> ""
        For i = 11 To 14
            Cells(rs, "r") = Cells(rd, "a")
            Cells(rs, "s") = Cells(rd, "b")
            Cells(rs, "t") = Cells(rd, "c")
            Cells(rs, "u") = Cells(rd, "d")
            Cells(rs, "v") = i - 10
            Cells(rs, "w") = Cells(rd, "i")
            Cells(rs, "y") = Cells(rd, i)
            If i = 13 Then
                Cells(rs, "z") = Cells(rd, "p")
            End If
            rs = rs + 1
        Next
        rd = rd + 1
    Loop
End Sub
 

[Pierito]

Gracias Janlui, por tu ayuda me fue muy util.