Errorrrr

Hola a todos:
Tengo una Hoja/Formulario de la que recogo datos mediante una macro y se
guardan en una Hoja/Base de datos. El caso es que para modificar registros ya
existentes lo que hago es buscarlos por una columna determinada eliminar
todas la filas que contienen el valor que busco y escribir al final de la
Hoja/Base de datos.
Bienpues la parte de codigo que deberia eliminar la filas no funciona,
¿alguien podria echarme una mano?:

With Hoja6.[C3:C5000]
Set c = .Find(Hoja1.[F23], LookIn:=xlValues)
If Not c Is Nothing Then
Valor = Application.WorksheetFunction.Max(Hoja6.Range("Recorridos"))
+ 1
Respuesta = MsgBox("Este recorrido ya esta en la base de datos, si
lo guardas sobreescribiras el existente. El numero para un recorrido nuevo
seria el " & Valor & Chr(13) & " ¿Quieres sobreescribir el recorrido
existente?", vbOKCancel, "Recorrido existente")
FirstAddress = c.Address
Do
Hoja6.Rows(c.Row).Delete Shift:=xlUp
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
End With

Un saludo