Vba to auto delete data based on date

[Darkman]

Hi guys ,

How do I create a VBA to delete based on dates. Mainly is to automate "cell shift up delete" on the cell in range A:D , if the date passes. The date will be constitute in Column D.

 

[Logit]

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