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

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
 

Gracias Janlui, por tu ayuda me fue muy util.