Dante Amor respondió:
Te anexo la macro con la actualización, cambia en la macro "Hoja1" por la hoja que quieras copiar. Sub CrearHoja() 'Por.Dante Amor Set l1 = ThisWorkbook Set h1 = l1.Sheets("Hoja1") ruta = "C:\Users\clwhmeto\Desktop\METODOS 2015\Fichas incompletas\"...