Прекратить условное форматирование в сохраненной электронной таблице после определенной даты

Question

Я работаю над электронной таблицей, где хочу отформатировать даты, которые будут опубликованы на следующей неделе. Код работает нормально, но по прошествии следующей недели форматирование продолжается, я этого не хочу. Я хочу, чтобы предстоящая неделя со дня создания файла была отформатирована. Для пояснения приведу пример:

• предстоящая неделя с 6 октября по 12 октября даты в формате
• сохранить файл
• повторно открыть файл 13 октября и сейчасПредстоящая неделя с 13 по 19 октября будет отформатирована

Я хочу открыть ЭТОТ СОХРАНЕННЫЙ РАСПИСАНИЕ в любой момент времени, и форматируется только неделя с 6 по 12 октября. Вот код, который я использую, есть ли команда, которую я могу вставить, чтобы прекратить форматирование после дня создания таблицы?

    Macro1 Macro
    With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
    End With
    Cells.Select
    Range("B1").Activate
    Selection.FormatConditions.Add Type:=xlTimePeriod, DateOperator:=7
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
        .Color = -16711681
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("D2").Select
    ActiveWindow.SmallScroll Down:=-30
End Sub