pedraosone

Espero que esta solución te sea útil, yo solo grabe una macro, y aquí te pongo el código por si te sirve de orientación. Sub copiaryrenombrar() ' ' copiaryrenombrar Macro Range("A1:D1").Select Selection.Copy Range("A2").Select ActiveSheet.Paste...