Sub Hide()
Dim cell As Range
Application.ScreenUpdating = False 'отключаем обновление экрана для ускорения
For Each cell In ActiveSheet.UsedRange.Rows(1).Cells 'проходим по всем ячейкам первой строки
If cell.Value = "x" Then cell.EntireColumn.Hidden = True 'если в ячейке x - скрываем столбец
Next
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 Show()
Columns.Hidden = False 'отменяем все скрытия строк и столбцов
Rows.Hidden = False
End Sub

Sub Скрыть_Процесс()
Dim cell As Range
Application.ScreenUpdating = False 'отключаем обновление экрана для ускорения
For Each cell In ActiveSheet.UsedRange.Range("k4:es4").Cells 'проходим по заданному диапазону
If cell.Value = Range("c3") Then cell.EntireColumn.Hidden = True 'если в ячейке выбранное значение в ячейке с3 - скрываем столбец
Next
Application.ScreenUpdating = True
End Sub
Sub Скрыть_Этап()
Dim cell As Range
Application.ScreenUpdating = False 'отключаем обновление экрана для ускорения
For Each cell In ActiveSheet.UsedRange.Range("k5:es5").Cells 'проходим по проходим по заданному диапазону
If cell.Value = Range("d3") Then cell.EntireColumn.Hidden = True 'если в ячейке выбранное значение в ячейке d3 - скрываем столбец
Next
Application.ScreenUpdating = True
End Sub

Sub Раскрыть_все()
Columns.Hidden = False 'отменяем все скрытия строк и столбцов
Rows.Hidden = False
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("C3,F3,G3")) Is Nothing Then Exit Sub

Dim rHid As Range, r As Range, MrPr$, Pl$, Kor$

MrPr = Range("C3").Value    'маркетинг, план, *
Pl = Range("F3").Value
Kor = Range("G3").Value
Set rHid = Range("A1")

With Range("K4:ES5")
    For Each r In .Rows(1).Cells
        If r.Value Like MrPr Then
            If r(2, 1) = Pl Or r(2, 1) = Kor Then
                Set rHid = Union(rHid, r)
            End If
        End If
    Next r
    .EntireColumn.Hidden = True
    Intersect(.Cells, rHid).EntireColumn.Hidden = False
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("C3,f3")) Is Nothing Then Exit Sub

Dim rHid As Range, r As Range, MrPr$, Pl$

MrPr = Range("C3").Value    'маркетинг, план, *
Pl = Range("f3").Value
Set rHid = Range("A1")

With Range("K4:ES5")
    For Each r In .Rows(1).Cells
        If r.Value Like MrPr Then
            If r(2, 1) = Pl Or r(2, 1) = Kor Then
                Set rHid = Union(rHid, r)
            End If
        End If
    Next r
    .EntireColumn.Hidden = True
    Intersect(.Cells, rHid).EntireColumn.Hidden = False
End With
End Sub

.EntireRow.Hidden = False

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("C5,f5,g5")) Is Nothing Then Exit Sub

Dim rHid As Range, r As Range, MrPr$, Pl$, Kor$

MrPr = Range("C5").Value    'ìàðêåòèíã, ïëàí, *
Pl = Range("f5").Value
Kor = Range("g5").Value
Set rHid = Range("A1")

With Range("b9:c16")
    For Each r In .Rows(1).Cells
        If r.Value Like MrPr Then
            If r(2, 1) = Pl Or r(2, 1) = Kor Then
                Set rHid = Union(rHid, r)
            End If
        End If
    Next r
    .EntireRow.Hidden = True
    Intersect(.Cells, rHid).EntireRow.Hidden = False
End With
End Sub

For Each r In .Columns(1).Cells