It is a guess work. Which columns and rows do you want to format in sheet consolidation?

It could be one of these

Sub format_inte_pastespecialformat()

Dim LR As Long, LC As Long
LR = Sheets("consolidation DATA").Range("G" & Rows.Count).End(xlUp).Row
LC = Sheets("consolidation DATA").Cells(1, Columns.Count).End(xlToLeft).Column
Sheets("WORKINGS").Range("H2:V2").Copy

Sheets("consolidation DATA").Range("G1").Resize(LR, LC).PasteSpecial Paste:=xlPasteFormats

End Sub

Sub format_inte_pastespecialformatAm()

Dim LC As Long
LC = Sheets("consolidation DATA").Cells(1, Columns.Count).End(xlToLeft).Column
Sheets("WORKINGS").Range("H2:V2").Copy

Sheets("consolidation DATA").Range("G1").Resize(, LC).PasteSpecial Paste:=xlPasteFormats

End Sub