Highlighting a row based on todays date

Hello guys,

Extremely new to this VBA programming of macros, I'm trying to highlight a row if todays date is within a particular range of a date stated in a column.
e.g. if today's date is within 30 days of the date stated in column A i want to highlight the row yellow but if its within 15 days i would like to highlight it red.

I would greatly appreciate any help which you genius's could give me.

Many thanks,
Jez1890

Managed to find a solution to this:

Dim LDate As Date
Dim rRange As Range
Dim Row As Object
Dim DateValue As Date
Dim lLastRow As Long
Dim lLastColumn As Long

Set rRange = Range("A2" & ":" & Range("A2").End(xlDown).Address)


For Each Row In rRange.Rows

If Row.Columns(1).Value <= DateAdd("d", 15, Date) Then
Row.Interior.ColorIndex = 3

ElseIf Row.Columns(1).Value <= DateAdd("d", 30, Date) Then
Row.Interior.ColorIndex = 6

End If

Next

End Sub