Private Sub Workbook_Open()                 '****** запускаем КОД при открытии Книги ******'
  '_____________ определение ЗАЩИТЫ ЛИСТА с разрешением работы КОДУ _____________'
    Sheets("процесс").Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingCells:=True, UserInterfaceOnly:=True
  '_____________ действия КОДА на листе _____________'
    FtoV = -6       'глубина перезаписи, дней (вниз+ вправо+, тут влево-)
    WtoLeft = 60    'ОКНО левее СЕГОДНЯ
    WtoRight = 20   'ОКНО правее СЕГОДНЯ
  '_____________'
    Dim dateToday
            dateToday = Date
    Dim cell As Range
    Application.ScreenUpdating = False                      'отключаем обновление экрана для ускорения
    For Each cell In Worksheets("процесс").UsedRange.Rows(5).Cells    'проходим по всем ячейкам строки 5
        If cell.Value = dateToday Then                      'если в значение в ячейке = ДатаСегодня ->
          '_____________ перезапись функций их значениями в ползущем диапазоне ячеек _____________'
            Range(cell.Offset(-1, -3), cell.Offset(123, FtoV)).Formula = Range(cell.Offset(-1, -3), cell.Offset(123, FtoV)).Value
                'одновременно задаём сещениями диапазон в стороках [4...128] и перезаписываем формулы их значениями
          '_____________ ОКНО _____________'
            adrCOLUMN = cell.Column                         'получаю адрес в R1C1 колонки, где даты равны
            iColumnX = Worksheets("процесс").UsedRange.Column + Worksheets("процесс").UsedRange.Columns.Count - 1
                    'тут посчитали количество используемых (UsedRange)
                    'ячеек вообще - как ПРАВАЯ граница
            For i = 13 To iColumnX                          'от ЛЕВОЙ до ПРАВОЙ границы
                If i < (adrCOLUMN - WtoLeft) Or i > (adrCOLUMN + WtoRight) Then
                    Cells(i).EntireColumn.Hidden = True     'то скрыть i-колонку
                End If
                If i > adrCOLUMN And i <= (adrCOLUMN + WtoRight) Then
                    Cells(i).EntireColumn.Hidden = False    'показываем колонку [i...Пр.Граница]
                End If
            Next
          '_____________ ОКНО _____________'
        End If
    Next cell
    Application.ScreenUpdating = True                       'включаем обновление экрана
    Worksheets("процесс").Cells(7, adrCOLUMN).Select
End Sub

Sub HideRows()
    Dim cell As Range
    Application.ScreenUpdating = False                          'отключаем обновление экрана для ускорения
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells     'проходим по всем ячейкам первого столбца
        If cell.Value = "x" Then cell.EntireRow.Hidden = True   'если в ячейке x - скрываем строку
    Next
    Application.ScreenUpdating = True                           'включаем обновление экрана
End Sub
Sub ShowRows()
    Rows.Hidden = False         'отменяем все скрытия строк
End Sub
Sub ShowColumns()
    Columns.Hidden = False      'отменяем все скрытия строк
End Sub

Sub кнопка_СЕГОДНЯ()
    Dim dateToday
            dateToday = Date                    'dateToday contains the current system date.
    Dim cell As Range
    For Each cell In Worksheets("процесс").UsedRange.Rows(5).Cells    'проходим по всем ячейкам строки 5
        If cell.Value = dateToday Then                      'если в значение в ячейке = ДатаСегодня ->
            adrCOLUMN = cell.Column                         'получаю адрес в R1C1 колонки, где даты равны
        End If
    Next cell
    Worksheets("процесс").Cells(7, adrCOLUMN).Select
End Sub