Sub MyPasteSpecialValues()
' Copy and paste special - values, of selected range
' Shortcut CTRL-SHFT-V
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub