Deleting a row where a cell contains a date in a column

I haven't try it yet, but give it a try

Sub test()
Do
Cells.Find("1900/01/01", , xlValues, xlPart).EntireRow.Delete
Loop Until WorksheetFunction.CountIf(Cells, "1900/01/01") = 0
End Sub