assistance on paste special formats vba code

Hi Jean,
The code only copies Range("B2:P2"). If you want to expand.

Range("B2:Q2").
Try this one

Sub format_inte_pastespecialformat()

Dim LR As Long, LC As Long, ms As Worksheet

Set ms = Sheets("consolidation DATA")

With ms

    LR = .Range("A" & .Rows.Count).End(xlUp).Row
    LC = .Cells(1, .Columns.Count).End(xlToLeft).Column
    Sheets("WORKINGS").Range("B2:Q2").Copy
    
    .Range("B2").Resize(LR, LC).PasteSpecial Paste:=xlPasteFormats

End With

End Sub