Удаление с другого листа выбранных ячеек (VBA)

[terredis]

Здравствуйте. Нужна помощь в написании макроса. Суть заключается в том, что есть лист "holidays", там пользователь выбирает 2 даты (начальную и конечную).если в первом и втором столбце значения разные, то с других листов "Ноябрь" и "Декабрь" должен удаляться диапазон дат, если же в первом и втором столбце выбраны одинаковые дату, то удалятся должна 1 дата с тех же листов (Ноябрь и декабрь), если они там имеются. и удаляться должна вся строка. Очень прошу помочь.
P.S. пример данных и того как все это будет выглядеть в документе "пример.xlsm"

[doober]

В результате тестирования сильно поредели строки с данными.

[terredis]

В результате тестирования сильно поредели строки с данными.

Спасибо. единственное, когда выбирается интервал дат, то он удаляет начальную и конечную, а даты, находящиеся в выбранном промежутке, он окрашивает в красный цвет, как это можно исправить?(что бы удалялся весь интервал)

[doober]

Изменил процедуру удаления строк

Sub Killer_Date()
    Dim Sh As Worksheet, X, lLastRowMY As Long, Sh2 As Worksheet
    Dim X1, X2, Cel As Range
    Dim StartDate As Date, EndDate As Date, DateTobeChecked As Date
    Set Sh = ThisWorkbook.Worksheets("Holidays")
    lLastRowMY = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row
    X = Sh.Range("A2:B" & lLastRowMY)
    Set Sh = ThisWorkbook.Worksheets("Ноябрь")
    lLastRowMY = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row
    X1 = Sh.Range("A1:A" & lLastRowMY)
    Set Sh2 = ThisWorkbook.Worksheets("Декабрь")
    lLastRowMY = Sh2.Cells(Sh2.Rows.Count, 1).End(xlUp).Row
    X2 = Sh2.Range("A1:A" & lLastRowMY)
    Application.ScreenUpdating = False

   On Error Resume Next

    For n = 1 To UBound(X1)
        If IsDate(X1(n, 1)) Then
            DateTobeChecked = CDate(X1(n, 1))
            For m = 1 To UBound(X)
                StartDate = CDate(X(m, 1))
                EndDate = CDate(X(m, 2))
                If Between(StartDate, EndDate, DateTobeChecked) Then
                    Sh.Range("A" & n).Interior.ColorIndex = 3
                End If
            Next
        End If
    Next
    For n = 1 To UBound(X2)
        If IsDate(X2(n, 1)) Then
            DateTobeChecked = CDate(X2(n, 1))
            For m = 1 To UBound(X)
                StartDate = CDate(X(m, 1))
                EndDate = CDate(X(m, 2))
                If Between(StartDate, EndDate, DateTobeChecked) Then
                    Sh2.Range("A" & n).Interior.ColorIndex = 3
                End If
            Next
        End If
    Next
       lLastRowMY = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row
    For n = lLastRowMY To 1 Step -1
        If Sh.Cells(n, 1).Interior.ColorIndex = 3 Then
            Sh.Rows(n).Delete
        End If
    Next
       lLastRowMY = Sh2.Cells(Sh2.Rows.Count, 1).End(xlUp).Row
    For n = lLastRowMY To 1 Step -1
         If Sh2.Cells(n, 1).Interior.ColorIndex = 3 Then
            Sh2.Rows(n).Delete
        End If
    Next
    Application.ScreenUpdating = True

End Sub

[terredis]

Действительно все заработало, спасибо)