Запуск нескольких команд Worksheet_Change для новичков

Question

Я смотрел YouTube, чтобы узнать, как сделать User Manager для большого количества данных (это сработало). Этот проект является первым набором команд изменения. Теперь я пытаюсь добавить функцию поиска, которая является второй командой изменения. Из того, что я прочитал здесь, у вас не может быть нескольких отдельных команд, но вы можете комбинировать их. Может ли помочь мастер-кодировщик VBA?

    Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F5:L11")) Is Nothing And Range("B5").Value = False And Range("B4").Value = False Then
    Cells(Range("B3").Value, Cells(Target.Row, Target.Column + 17).Value).Value = Target.Value
End If

If Not Intersect(Target, Range("E15:J15")) Is Nothing And Range("B6").Value = False Then
    TableFilt
End If

End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E14:T9999")) Is Nothing And Range("E" & Target.Row).Value <> Empty Then
    Range("B3").Value = Target.Row
    Cont_Load
End If

End Sub