Hola necesito un macro para unir varias hojas de un libro, exceptuando una.

La copia es solo de datos ( sin títulos) y no mencionas nada de fórmulas así que van tal como están.

Entrá al Editor de macros, insertá un módulo y allí pegá esto.

Solo tenés que ajustar la letra de la última columna de datos, que en el ej es H.

Sub uniendoHojas()
'x Elsamatilde
'hoja donde se traen los datos
Sheets("resumen mes").Select
For Each sh In Sheets
 If sh.Name <> "resumen caja" And sh.Name <> ActiveSheet.Name Then
 '1er fila libre para el copiado
 filx = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1
 sh.Range("A3:H" & sh.Range("A" & Rows.Count).End(xlUp).Row).Copy Destination:=ActiveSheet.Range("A" & filx)
 End If
Next
End Sub

Probala y si todo queda resuelto no olvides finalizar la consulta.