macro para copiar datos de varias hojas de excel a una sola

Buenas tardes,

Consulte varios temas y el que encontré mas cercano a mi situación fue el de la siguiente macro:

Sub Fusionar()

Application.ScreenUpdating = False

Application.EnableEvents = False

Sheets("CONSOLIDADO").Cells.ClearContents

fila = 1

For Each Hoja In Worksheets

If Hoja.Name <> "Consolidado" Then

Uf = Hoja.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

Hoja.Range("A6:F" & Uf).Copy Sheets("CONSOLIDADO").Range("A" & fila & ":F" & fila + Uf - 1)

fila = fila + Uf

End If

Next

Application.EnableEvents = True

Exit Sub

End Sub

Pero me tira un error 91, variable u objeto with no establecido. y también me gustaría que en la hoja de consolidado se pegaran los datos a partir de la fila 2 y sin espacios entre cada hoja.

Gracias,