=НЕ(ИЛИ(И($B3<D$1;$C3<D$1);И($B3>E$1;$C3>E$1)))

=НЕ(ИЛИ($C3<D$1;$B3>E$1))

=И(D$1>=$B3;D$1<=$C3)

Sub Макрос1()
    Dim col_1 As Range, m As Integer, n As Integer, arr1 As Variant, arr2 As Variant
    Columns("C:NE").Hidden = False
    arr1 = Range("B3:C" & Cells(Rows.Count, 2).End(xlUp).Row)
    arr2 = Range(Cells(1, 4), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column))
    Set al = CreateObject("System.Collections.ArrayList")
    For n = 1 To UBound(arr1)
        For m = 1 To UBound(arr1, 2)
            If Not al.Contains(CDate(arr1(n, m))) Then al.Add CDate(arr1(n, m))
        Next
    Next
    For n = 1 To UBound(arr2, 2)
        If Not al.Contains(CDate(arr2(1, n))) Then
            If col_1 Is Nothing Then Set col_1 = Columns(n + 3) Else Set col_1 = Union(col_1, Columns(n + 3))
        End If
    Next
    If Not col_1 Is Nothing Then col_1.EntireColumn.Hidden = True: Set col_1 = Nothing
End Sub

=ТЕКСТ(D1;"ДД.ММ")&"-"&ТЕКСТ(D1+6;"ДД.ММ")