Option Explicit
Sub дата() 'в модуле
Dim b$, a$
a$ = Sheets("0000").Columns("N:N").Select
b$ = Date - 1
If a$ = b$ Then MsgBox "ошибка в дате", vbInformation, "сообщение"
End Sub

 'на листе
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "N:N" Then: Call дата
End Sub

With Application
        .EnableEvents = 0: .ScreenUpdating = 0
        With ActiveSheet
            If .FilterMode Then .ShowAllData
            With .UsedRange
                With Intersect(.Columns("N:O"), .Offset(1))
                    .Replace Date - 1, "=zz1", 2, , , , False, False
                    .Rows.Hidden = True
                End With
            End With
        End With
        With [zz1].DirectDependents
            .Rows.Hidden = False
            .Formula = Date - 1
        End With
        .EnableEvents = 1: .ScreenUpdating = 1
    End With