Cortar y pegar valores con VB

Quiero hacer una macro para copiar los valores de un rango y pegarlos
posteriormente en otro, borrándolos del rango original.
Para ello pobe con una variable Static para guardar el rango y otra Boolean
para saber y tengo datos copiados.
Cuando ejecuto el código paso a paso, funciona pero al correr el código
desde una Macro da error en la linea indicada.

Sub CortarValores()
Static R1 As Range
Static EnProceso As Boolean

If EnProceso = False Then
Set R1 = Selection
Selection.Copy
EnProceso = True
Else
'Esta línea da error cuando se ejecuta la macro.
'pero en el paso a paso funciona bien
Selection.PasteSpecial xlValues
EnProceso = False
R1.ClearContents
Set R1 = Nothing
End If
End Sub

Cualquier ayuda es agradecida.
Saludos.