Cacher is the code snippet organizer for pro developers

Sub test()
    Range("A1").Select
    With Columns("A:A")
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:="=AND(A1>0,A1<TODAY())"
        .FormatConditions(1).Interior.Color = RGB(255, 0, 0)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=AND(A1>0,A1=TODAY())"
        .FormatConditions(2).Interior.Color = RGB(255, 255, 0)
    End With
End Sub