You could try this:
Sub FindReplace()
Dim row As Integer
Dim myCell As Range
Set myCell = Application.InputBox( _
prompt:="Select a cell which has the contents you want to remove",
Type:=8)
For row = 1 To Worksheets(1).UsedRange.Rows.Count
If Worksheets(1).Range("A" & row).Value = myCell.Value Then
Worksheets(1).Range("A" & row).Delete Shift:=xlShiftUp
End If
Next row
Set myCell = Nothing
End Sub