Check Column A for date before running macro

Hello, I have some code here that I am using to find matches in Column D and then remove colored cell once the match is found. I am in putting the data line by line from a Barcode scanner and only want to run the macro if the date in Column A is today. Here is the code I am using.

 
Sub Highlight_Duplicate_Entry()
 

    Dim ws As Worksheet
    Dim cell As Range
    Dim myrng As Range
    Dim myrngDate As Range
    Dim clr As Long
    Dim lastCell As Range

    Set ws = ThisWorkbook.Sheets("Sheet2")
    Set myrng = ws.Range("D1:D" & Range("D" & ws.Rows.Count).End(xlUp).Row)
    Set myrngDate = ws.Range("A1:A" & Range("A" & ws.Rows.Count).End(xlUp).Row)

    With myrng
        Set lastCell = .Cells(.Cells.Count)
    End With

    myrng.Interior.ColorIndex = xlNone

    clr = 3

    For Each cell In myrng

        If Application.WorksheetFunction.CountIf(myrng, cell) = 1 Then
            ' addresses will match for first instance of value in range
            If myrng.Find(what:=cell, lookat:=xlWhole, MatchCase:=False, after:=lastCell).Address = cell.Address Then
                ' set the color for this value (will be used throughout the range)
                cell.Interior.ColorIndex = clr
                clr = clr + 1
            Else
                ' if not the first instance, set color to match the first instance
                cell.Interior.ColorIndex = myrng.Find(what:=cell, lookat:=xlWhole, MatchCase:=False, after:=lastCell).Interior.ColorIndex
            End If
        End If

    Next

End Sub