Private Sub Worksheet_Change(ByVal Target As Range)

      If Target.Address <> Range("J1").Address Then Exit Sub
      Application.ScreenUpdating = False
      Application.Calculation = xlCalculationManual

      Dim cell As Range, ra As Range, hidden_ra As Range
      Set ra = Range([A8], Range("A" & Rows.Count).End(xlUp)).Offset(, 2)
        
      For Each cell In ra.Cells
          If cell.Value = "Компьютеры" Then If hidden_ra Is Nothing Then Set hidden_ra = cell Else Set hidden_ra = Union(cell, hidden_ra)
      Next cell

      ra.EntireRow.Hidden = False
      hidden_ra.EntireRow.Hidden = True

      Application.Calculation = xlCalculationAutomatic
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("D1:D2, J1:J2"), Target) Is Nothing Then
'Если изменяемая ячейка попадает в указанные диапазоны, то присваиваем переменным значения
Tip = Target.Offset(0, -1)
'Tip - понятно и есть Тип (значение левой ячейки от изменяемой)
cTip = IIf(Target.Column = 4, 2, 3)
'CTip - если изменяемая ячейка в 4-ом столбце, то 2, иначе 3 (это номера столбцов в таблице с типом и подтипом)
False_True = IIf(Target = "+", False, True)
'False_True - В зависимости от того что в ячейке присваивается соответствующее значение False или True
iHidden
'Запуск макроса обработки строк
End If
End Sub

Public Tip As String
Public False_True As Boolean
Public cTip As Integer
'Описание переменных
Public Sub iHidden()
Hidden_Row = 65536 - Columns(1).SpecialCells(xlVisible).Count
'Счет скрытых строк
For i = 6 To Range("A5").End(xlDown).Row + Hidden_Row
'Цикл с 6 ячейки до последней заполненной видимой плюс навидимые строки
If Cells(i, cTip) = Tip Then Rows(i).EntireRow.Hidden = False_True
'скрытие или отображение строк в зависимости от значений переменных
Next i
End Sub