James Bond respondió:
Prueba esta macro Sub copiar_columnas() Set H1 = Worksheets("hoja1") H1.Select cuenta = Sheets.Count Set DATOS = H1.Range("g9").Resize(13, cuenta - 1) x = 1 For Each hoja In Worksheets nhoja = UCase(hoja.Name) If nhoja <> "HOJA1" Then...