Macro para consolidar info de varias hojas

Puedes mandarme el fichero para ver como es y probar con el.

Mi correo es

[email protected]

Por favor pon como asunto el título de la pregunta y como nombre del fichero pon

MacroConsolidar.XLSX (o XLS o lo que corresponda)

Buenos días,

Te he enviado el fichero de acuerdo a tus indicaciones.

Gracias.

Un saludo,

Ya creo que está. Escribo aquí la respuesta pero mejor espera, que en unos segundos te mando el fichero con la macro. Y aquí hay algunas líneas muy largas y no sé si se verán vbien

Private Sub Boton_Consolidar_Click()
'by ValeroASM
Dim Filas As Integer
Application.ScreenUpdating = False
'Primero borramos la hoja Consolidado
With ThisWorkbook.Sheets("Consolidado")
   .Range("A1", .Cells(.Range("A65536").End(xlUp).Row, .Range("BB1").End(xlToLeft).Column)).Delete
End With
'Despues copiamos la hoja Reporte1 y la copiamos en Consolidado
'Anotamos el número de filas que se copian
With ThisWorkbook.Sheets("Reporte1")
   Filas = .Range("A65536").End(xlUp).Row
 .Range("A1", .Cells(Filas, .Range("BB1").End(xlToLeft).Column)).Copy _
 Destination:=ThisWorkbook.Sheets("Consolidado").Cells(1, 1)
End With
'Ahora copiamos la hoja Reporte2 y la pegamos pero una fila más abajo de las que había
With ThisWorkbook.Sheets("Reporte2")
   .Range("A2", .Cells(.Range("A65536").End(xlUp).Row, .Range("BB1").End(xlToLeft).Column)).Copy _
          Destination:=ThisWorkbook.Sheets("Consolidado").Cells(Filas + 1, 1)
End With
'Y ahora ordenamos la hoja consolidado por primera columna, descendiendo y sin contar la primera fila
With ThisWorkbook.Sheets("Consolidado")
   .Range("A1", .Cells(.Range("A65536").End(xlUp).Row, .Range("BB1").End(xlToLeft).Column)).Sort _
          key1:=.Range("A:A"), order1:=xlDescending, Header:=xlYes
End With
Application.ScreenUpdating = True
ThisWorkbook.Sheets("Consolidado").Activate
End Sub

Ya me dirás si funciona y si no pídeme lo que haya que corregir. Y si ya está bien no olvides puntuar.

Hola Valero,

He probado el macro y funciona perfectamente, pero necesito ampliar el rango de columnas, ya que la estructura final de la hoja contiene información hasta la columna "AD". ¿Que rango debería modificar? ¿cambiar el valor "BB1" por "AD1"?.

Gracias de antemano por tu tiempo.

Un saludo,