Sub u_16()
    Application.ScreenUpdating = False
    Dim u_4, u_5 As Double
    u_1 = Date
    u_2 = Year(u_1)
    u_3 = Month(u_1)
    u_4 = DateSerial(u_2, u_3 + 1, 1)
    u_5 = u_1 + 1
    u = Cells(Rows.Count, "a").End(xlUp).Row
    Range("a2:a" & u).FormatConditions.Delete
    Range("a2:a" & u).FormatConditions.AddIconSetCondition
    With Range("a2:a" & u).FormatConditions(1)
        .ReverseOrder = False
        .ShowIconOnly = False
        .IconSet = ActiveWorkbook.IconSets(xl3Symbols)
    End With
    With Range("a2:a" & u).FormatConditions(1).IconCriteria(2)
        .Type = xlConditionValueNumber
        .Value = u_5
        .Operator = 7
    End With
    With Range("a2:a" & u).FormatConditions(1).IconCriteria(3)
        .Type = xlConditionValueNumber
        .Value = u_4
        .Operator = 7
    End With
    Application.ScreenUpdating = True
End Sub