Macro no encuentra fecha con Set c = .Find(Fecha, LookIn:=xlValues)

He creado una macro que pegaré al final, que me da el siguiente error

Busca una fecha como resultado del valor de una celda ("F1")

Busca esta en otra hoja del mismo libro

Una vez encontrada, copia todo el rango de la columna hasta la última fila con datos.

Problema:

La sentencia .find, no encuentra la fecha y entonces no hay dirección de celda desde donde seleccionar y copiar los datos a otra hoja mismo libro.

Llevo varios días buscando el error y no soy capaz de verlo.

Pego la macro para que se pueda revisar.

Sub ImportaDatos()

Sheets("Revisión Códigos").Select

range("A2:B25000").Select
Selection.Clear
range("a1").Activate
Fecha = range("f1").Value                 '(de aquí toma la fecha)

Sheets("Balances Gastos Clientes").Select
On Error Resume Next
'
Columns("J:J").Select                    (Es la columna donde tiene que buscar la fecha)
Fecha = Format(Fecha, "dd-mm-yy")         (Le pongo formato por si acaso)
With Worksheets(5).range("j:j")
Set c = .Find(Fecha, LookIn:=xlValues)           (No encuentra la fecha y no asigna el valor a "c").
If Not c Is Nothing Then
firstaddress = c.Address
Else
MsgBox ("No has puesto bien el formato fecha, " & vbCr & " o mira bien el formato de la fecha: (##-##-##)")
Exit Sub
End If
End With

range(firstaddress).Select
ActiveCell.Offset(0, 6).Select
Rango = firstaddress
range(ActiveCell, range("p2").End(xlDown)).Select
Selection.Copy

Sheets("Revisión Códigos").Select
range("a2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'Call Comprobación

End Sub