Luismondelo: Eliminar las filas que contengan la fecha errada sale ########.?

Esta es la macro que necesitas para el ejemplo que has mandado:

Sub ejemplo()
'por luismondelo
Range("c2").Select
Do While ActiveCell.Row <> 21
If Not IsDate(ActiveCell) Then
ActiveCell.ClearContents
End If
ActiveCell.Offset(1, 0).Select
Loop
'++++++++++++++++++++++++++++++
Range("a65000").End(xlUp).Offset(1, 0).Value = "final"
Range("c2").Select
Do While ActiveCell.Offset(0, -2).Value <> "final"
If ActiveCell.Value = "" Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
ActiveCell.Offset(0, -2).ClearContents
End Sub

recuerda finalizar la consulta