Duda juntar hojas excel en una con macros

Tengo este código y me funciona a la perfección, me copia todos los datos hasta con formato.

Mi duda.. La verdad necesito que solo a la última página le copie la fila 1 (descripciones de columnas), ¿desde la segunda en adelante solo copie desde la fila 2. Como puedo perfeccionar este código para que haga lo que necesito?

Gracias!

Sub FusionarHojas()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets.Add
Sheets("HOJAS FUSIONADAS").Delete
ActiveSheet.Name = "HOJAS FUSIONADAS"
FilaP = 1
For Each Hoja In Sheets
  If Hoja.Name <> "HOJAS FUSIONADAS" Then
     FilaC = Hoja.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
     ColumnaC = Hoja.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
     
     Hoja. Activate
Range(Cells(1, 1), Cells(FilaC, ColumnaC)). Copy
Sheets("HOJAS FUSIONADAS"). Activate
Sheets("HOJAS FUSIONADAS"). Range(Cells(FilaP, 1), Cells(FilaC + FilaP - 1, ColumnaC)).Select
     ActiveSheet. Paste
     FilaP = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
  End If
Next
End Sub