Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Application.CutCopyMode = False Then Exit Sub

Application.EnableEvents = False

Application.Undo

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Application.EnableEvents = True

End Sub