Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then
Exit Sub
Else
Application.EnableEvents = False
ActiveCell.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.EnableEvents = True
End If
End Sub