Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LastRow As Integer
Dim J As Integer
Application.ScreenUpdating = False
LastRow = Cells(Rows.Count, 4).End(xlUp).Row
For J = LastRow To 2 Step -1
If Cells(J, 4) < Date Then
Cells(J, 4).EntireRow.Delete
End If
Next J
Application.ScreenUpdating = True
End Sub