How to use paste special values

Hey,

There is actually a separate pastespecial function in Excel, here is how that would look

Sub PasteSpecial_Test()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ws.Range("A1").Copy
    ws.Range("A1").PasteSpecial (xlPasteValues)

End Sub

Alternatively, you can actually set the value of the cell/range to it's own value to accomplish the same thing

Sub Alternate_Set_as_Value()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ws.Range("A1").Value = ws.Range("A1").Value

End Sub