Condicion en Macro

Hola grupo, buen dia:

Tengo un codigo, el cual me funciona bien, solo necesita
el ultimo ajuste, y por eso recurro a ustdes...

La historia: Tengo un rango ("A4:A100) en el cual realizo
una busqueda, y de acuerdo a esa busqueda me realiza una
serie de instrucciones.

La trama: Ya declare las variables, que son 6, pero solo
pongo uno de ejemplo, en este caso el de Canc que esta
entre 3 asteriscos en la segunda linea de codigo. En
algunos casos puede no existir esta variable Canc - de
acuerdo a la base que tenga, la cual puede variar.

Mi pregunta es: Que tendria que agregar a este codigo para
que en caso de no encontrar esa variable, no me aparezca
FInalizar Depurar, sino que siguiera con el que sigue.

Mil gracias...

El codigo...

For Each R In Selection

Selection.Find(What:=***Canc***, After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Select
ActiveCell.Next.Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveSheet.Previous.Select
Range("B50").Select
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveSheet.Next.Select
Range("A4:A100").Select