Sub Макрос1()
    Dim dt As Date
    
    dt = Date + 1
    With Application
        .EnableEvents = 0: .ScreenUpdating = 0
        With ActiveSheet
            If .FilterMode Then .ShowAllData
            With .UsedRange
                With Intersect(.Cells, .Offset(2))
                    .Rows.Hidden = True
                    If .Find(dt, , xlFormulas) Is Nothing Then GoTo x
                    .Replace dt, "=zz1", 2, , , , False, False
                End With
             End With
        End With
        On Error Resume Next
        With [zz1].Dependents
            .Rows.Hidden = False
            .Formula = dt
        End With
x:      .EnableEvents = 1: .ScreenUpdating = 1
    End With
End Sub