Private Sub CheckBox1_Click()
Static fltRng As Range
  On Error Resume Next
  Application.ScreenUpdating = False
  If CheckBox1 = True Then
  If Me.AutoFilterMode Then Me.ShowAllData
    Set fltRng = Me.UsedRange.Columns(1).Offset(, Me.UsedRange.Columns.Count)
    With fltRng
      .Cells(2).FormulaArray = "=--OR(RC2:RC[-1]=TODAY())"
      .Cells(2).AutoFill .Cells(2).Resize(.Rows.Count - 1)
      .AutoFilter 1, 1
      .Offset(1).Value = Empty
    End With
  ElseIf Not fltRng Is Nothing Then
    Me.AutoFilterMode = False
    fltRng.ClearContents
    ActiveSheet.Outline.ShowLevels RowLevels:=1 'группирует строки ???
  End If
  Application.ScreenUpdating = True
End Sub