Установить макросом расширенный диапазон для фильтра - VB

Формулировка задачи:

Ребята подскажите как можно макросом расширить диапазон для фильтра "на дату, сегодня", как в примере CheckBox(ом) на "сегодня" у меня фильтруется только один столбец, а хотелось бы расширить диапазон как это сделать?

Решение задачи: «Установить макросом расширенный диапазон для фильтра»

textual
                            Листинг программы 
                        

                            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

                        