Paste value except borders and formula

Hi, i'm new here. I'm trying to copy data from a cell without borders and formula, just paste value and blank
I know Paste:=xlAllExceptBorders option, but this option include cell's format.
I try this:

With Range("A2")
       .PasteSpecial xlAllExceptBorders
       .PasteSpecial xlPasteValues
End With

But it didn't work
Any help would be appreciated. Thanks.

This should do it

    With Range("A2")
    .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End With