Combining two Worksheet_Change Events

I have looked around and have not found a catch-all solution to combine two Worksheet_Change Events. I've looked around and found many specific instances that had specific solutions. I would really like to know how to do this if anyone could point me in the right direction.

Here is my situation:
I'm looking to combine the following two Worksheet_Change Events in the code of the attached doc.

The Macros:
Search Item - Based on category selection from a cell will: filter both columns and rows.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = Range("vFilterBy").Address Then
        Call FilterData
    End If
End Sub

THE SUB:
Sub FilterData()
    Dim sCell As Range
    Set sCell = Range("vFilterBy")
    Range("lstFilterData").Select
    If Trim(sCell.Value) <> "all" Then
        Selection.AutoFilter Field:=1, Criteria1:=sCell.Value
    Else
        Selection.AutoFilter Field:=1
    End If
    sCell.Select
End Sub

Add Item - Based on category selection from a cell will: go to the bottom of selected category, insert a new row and continue the formulas.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    
        'Target Cell
    If Target.Address(0, 0) <> "B3" Then Exit Sub
        Dim r As Range
        'Columns to search and add
        Set r = Me.Columns(2).Find(Target, SearchDirection:=2, lookat:=xlWhole)
    If r Is Nothing Then Exit Sub
    On Error Resume Next
        r.EntireRow.Copy
        r(2).EntireRow.Insert Shift:=xlDown
        r(2, 2).Resize(, 60).SpecialCells(2).ClearContents
        r(2).Select
        Application.CutCopyMode = False
End Sub

Attached is the workbook, each of these macros work independently as desired, on their own tabs. I need them combined on a single tab. This will make more sense if you take a look at the workbook.

Any help at all would be great and I would vastly appreciate it. Thank you.

p.s. - If there is a catch-all way to combine two Worksheet_Change Events I would REALLY like to know how do so. That way in the future if I need to do this again in another situation I would be able to. Any help in getting pointed in the right direction to learn that would be greatly appreciated.

Originally Posted by codeslizer

..... See the attached file, is this what you're trying to accomplish? Like to allow you add categories just like that or even in the case when you have filter ON? Below is the consolidated one. .....

Hey codeslizer, thank you again for all your help. I was working with the code you sent me and I was attempting to add hiding columns to the search item code. When a category is selected not only would I need the rows filtered, but also only the columns that pertain to that category.
Example:
When Breaker is selected the only columns that should be displayed are A-I, K, L, AP, AZ-BK, BP.
Columns needing to be displayed/hidden are different for each category.

Is there a way to add in the option to select (in the code) which columns are displayed for each category?

Perhaps a different way to explain it is:
IF cell B4 (the cell I'm using to select the search criteria) = [value]
THEN hide columns: _, _, _, _, .....

I do not mind filling this information out in the code myself, but I don't know the syntax to do it properly. Could you advise me on how to set up just one, and I can set up the rest please?

I apologize for not explaining this well enough before.

codeslizer, once again, thank you very much for your wonderful help. This is exactly what I was looking for. Thank you!

I tried this:

If Range("$B$4").Value = "Breaker" Then
     Cells.EntireColumn.Hidden = False
     Range("A:I, K, L, AP, AZ:BK, BP").EntireColumn.Hidden = True
End If

But it didn't work, I think I'm placing this in the code in the wrong location. I guess I don't know where it should go. Could you advise? Also, will this get me the results I'm looking for?

O K; I see it now. This has helped tremendously and I have learned quite a bit. Thank you for helping me and for sharing your knowledge. I appreciate it very much!