Объединение нескольких макросов под Worksheet_Change

[NightWolf990]

Добрый день. Хотел реализовать на одном листе заполняемую информацию, при заполнении которой, на втором листе отображались необходимые строчки, а лишние скрывались. На первом листе у меня есть несколько ячеек с выпадающем списком. И к ним хотелось бы подвязать скрытие/отображение.
Как правильно прописать эти коды под одной шапкой Worksheet_Change, чтобы все работали. При объединении, работает только тот, который вставляется выше

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, j As Long, lr As Long
If Intersect([b7], Target) Is Nothing Then Exit Sub
With Sheets("ÊÄ")
.[a153:a184].EntireRow.Hidden = False
lr = .Cells(.Rows.Count, 1).End(xlUp).Row
.[a153:a184].EntireRow.Hidden = True
For i = 1 To lr
If .Cells(i, 1) = Target.Value Then
    .Rows.EntireRow(i + 1).Hidden = False
    i = i + 1
    Exit For
End If
Next
For j = i To lr
    If Left(.Cells(j, 1), 1) = "-" Then
    .Rows.EntireRow(j).Hidden = False
    Else
    Exit For
    End If
Next
End With
End Sub

Планируется еще несколько таких ячеек со своими диапазонами скрытия и отображения

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([b16], Target) Is Nothing Then Exit Sub
With Sheets("ÊÄ")
.[a35:a49].EntireRow.Hidden = False
.[a35:a49].EntireRow.Hidden = True
If Target.Value = 1 Then
    .[a35].EntireRow.Hidden = False
    End If
If Target.Value = 2 Then
    .[a35:a36].EntireRow.Hidden = False
    End If
End With
End Sub

[kuklp]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, j As Long, lr As Long
If Intersect([b7,b16], Target) Is Nothing Then Exit Sub
With Sheets("EA")
.[a153:a184].EntireRow.Hidden = False
lr = .Cells(.Rows.Count, 1).End(xlUp).Row
.[a153:a184].EntireRow.Hidden = True
For i = 1 To lr
If .Cells(i, 1) = Target.Value Then
    .Rows.EntireRow(i + 1).Hidden = False
    i = i + 1
    Exit For
End If
Next
For j = i To lr
    If Left(.Cells(j, 1), 1) = "-" Then
    .Rows.EntireRow(j).Hidden = False
    Else
    Exit For
    End If
Next
End With
With Sheets("EA")
.[a35:a49].EntireRow.Hidden = False
.[a35:a49].EntireRow.Hidden = True
If Target.Value = 1 Then
    .[a35].EntireRow.Hidden = False
    End If
If Target.Value = 2 Then
    .[a35:a36].EntireRow.Hidden = False
    End If
End With
End Sub

А условия перехода в зависимости от Target вставьте сами.

[NightWolf990]

Большое спасибо, все работает