Hi
This code apparently is only for version 2003,

Sub EditPasteSpecial()
If Selection.StartIsActive Then
Selection.Delete
End If
Exit Sub
End Sub

what would it be version since 2013???