Cómo copiar contenido que cumpla las condiciones a otra columna en VBA, ¡ayúdame si sé programación! ! ¡Ruega de rodillas! !

El código VBA que cumple con sus requisitos es el siguiente: Option?Explicit

Sub?YgB()

Dim?i,?j,?x1, ?x2, ?i2,?n

x1?=?Celdas(3,?"N")

x2?=?Celdas(4,?"N")

i2?=?2?'La siguiente fila para guardar el resultado

For?i?=?4?To?Cells(65536,?"K").End(xlUp) .Fila

Si?Celdas(i?-?2,?"K")?=?x1?Y?Celdas(i?-?1,?"K")?=?x2?Entonces

n?=?0?'Número de copias

For?j?=?1?To?10

If?Cells(i,?j ?+?1 )?=?x2?Entonces

n?=?n?+?1

Celdas(i2,?j?+?15)?=?x2

¿Fin?Si

Siguiente?j

Si?n?<>?0?Entonces?i2?=?i2?+?1

¿Fin?Si

¿Siguiente?i

¿Fin?Sub