Delete Date

Hi Willih, you might try:

Sub WILLIH()
Dim i As Long, LR As Long
LR = Range("F" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    If Cells(i, "F").Value = Date Then Cells(i, "F").EntireRow.Delete
Next i
End Sub