Please advise if it is possible to adapt VBA code to paste values and formats

My current code does just the values as below

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False