Visual Basic - Generar Copia de datos desde encabezado en otra hoja

Estimados maestros recurro a su sabia ayuda, estoy tratando de hacer una macro en donde me genere una copia de datos de una hoja a otra pero en vertical, teniendo como encabezado un codigo, adjunto el codigo macro en el mismo archivo del cual estoy partiendo, espero su ayuda.

Gracias

Juan

• PRUEBA1.zip(29,7 KB)