Hjælp til makro

Marker datoer og kør makro
Alle datoer <= den du indtaster slettes
herefter markeres alle tomme celler i det markerede område og disse rækker slettes
Så hvis der er tomme celler imellem datoerne bliver disse slettet selv om der evt. er data i øvrige kolonner,- er det et problem?
Hvis det er hvilken kolonne kan der så testes i for at undgå dette ?

Sub FjernDato()
dato = CDate(InputBox("Indtast dato i formatet dd-mm-ååå :"))
For Each c In Selection
If c.Value <> "" And c.Value <= dato Then c.Value = ""
Next
On Error Resume Next
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Hvis der er meget skærmopdatering kan hastigheden øges ved at skrive

Application.ScreenUpdating = False

som den første linie (efter sub-erklæringen) og

Application.ScreenUpdating = True

som den sidste linie (inden end-erklæringen).

Jeg kigger på det når jeg kommer hjem ,men det der var problemet var at hvis jeg stod helt ved siden af datoerne og kørte makroen, så slettet den bare den øverste linje.
Mvh
zxa

Jeg må beklage at jeg ikke har vendt hurtigere tilbage, men excelent den virker meget bedre, så smider du et svar.

ok