Estoy usando la siguiente macro para combinar todas las hojas de trabajo en una nueva hoja de trabajo llamada 'Combinada' en el mismo libro de trabajo. Todos los datos se copian en una nueva hoja de trabajo, pero no puedo obtener el mismo formato (alto de fila y ancho de columna) y Filtrar en 'Combinado'.

 Sub Combine() Dim I As Long Dim xRg As Range On Error Resume Next Worksheets.Add Sheets(1) ActiveSheet.Name = "Combined" For I = 2 To Sheets.Count Set xRg = Sheets(1).UsedRange If I > 2 Then Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1) End If Sheets(I).Activate ActiveSheet.UsedRange.Copy xRg Next End Sub

Todos los encabezados de columna tienen el mismo nombre en todas las hojas de trabajo.