Eliminar filas de excel con cierto criterio

[mfyorugua]

He estado mirando lo que habeis puesto antes, lo intento hacer y me da error y hasta me borra todos los datos en la hoja1.
No tengo ni idea de macros-

El código que tengo es:
Sub eliminar()
On Error Resume Next
'ocultamos el procedimiento
Application.ScreenUpdating = False
'nos situamos en la hoja2
Hoja2.Select
'y en la primera celda con datos
Range("A1").Select
'hasta que no encuentre una fila vacía...
Do While Not IsEmpty(ActiveCell)
'pasamos a una variable el dato de la celda
celda = ActiveCell
'volvemos a la hoja1
Hoja1.Select
'buscamos el dato de la Hoja2 en esta Hoja1
Cells.Find(What:=celda).Activate
'eliminamos la fila
Selection.EntireRow.Delete
'volvemos a la hoja2
Hoja2.Select
'bajamos una fila
ActiveCell.Offset(1, 0).Select
Loop
'mostramos el procedimiento
Application.ScreenUpdating = True

End Sub

Me da error 91, no se que más hacer hay algo que hago mal en los pasos a seguir segun lo que cuentas pero no logro que funcione....

Soy muy nueva en esto con lo cual si la explicación puede ser lo más detallada se agradece.