Error Selection.Find.Found visual basic

Hola, estoy intentando hacer una macro en excel para que busque y copie datos de una matriz. Me da error cuando no encuentra uno de los datos y no sé cómo arreglarlo (error 450 en tiempo de ejecución). Yo quiero que cuando no encuentre un dato, lo ignore y continúe buscando el siguiente, pero me da error la orden Selection.Find.Found.... Podéis ayudarme? Aquí copio el código. Gracias!

Sub Copiar_Datos()
'' Copiar_Datos
'
While ActiveCell.Value <> ""
jump: Sheets("Data").Select
ActiveCell.Offset(1, -1).Range("A1").Select
valor = ActiveCell.Value
ActiveSheet.Next.Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Find(What:=valor, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

'intentando arreglar si no lo encuentra'
If Selection.Find.Found = True Then

ActiveCell.Offset(0, 1).Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
ActiveSheet.Previous.Select
ActiveCell.Offset(0, 1).Range("A1").PasteSpecial
Else
GoTo jump
End If
Wend
End Sub