James Bond respondió:
Prueba con esta macro Sub copiar() On Error Resume Next Set H1 = Worksheets("datos") BuscarHoja = (Worksheets("Datos").Name <> "") If BuscarHoja = False Then Sheets.Add before:=Sheets(1) ActiveSheet.Name = "Datos" Set H1 = Worksheets("datos") On...