VBA, Micro don't know

We have a large worksheet we use and update daily. I am trying to have a second page that will recognize when we type a certain word in to a specific cell on a column and input data from a different cell of the same row.

N001 | BIRTHDAY | BALLOONS STREAMER CAKE
N002 | RETIREMENT | BALLOONS CAKE

For example if A3 has the word streamer then insert A1 on to the second page in column A. If B3 does not have the word streamer do nothing.

Try this formula in Sheet2 B1

=INDEX(Sheet1!A:A,MATCH("*"& A1& "*",Sheet1!C:C,0))

So I am attaching a sample of the file so you can better see what I am talking about. I want to be able to enter my next work order N08005 and have it automatically pull the workorder number to sheet 2 if
sheet 1 says "brgs" appears in column E. So that if someone other than myself adds to Sheet 1 I will not have to go back and check if this work is included.

Try adding this code to the Sheet1 tab in the VBA editor and saving the workbook in .xlsm format.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range

For Each Cell In Target
    If Cell.Column = 2 Then
        If UCase(Cells(Cell.Row, 5)) Like "*BRG*" Then
            If WorksheetFunction.CountIf(Sheet2.Columns(1), Cell) = 0 Then
                Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Cell
            End If
        End If
    End If
    If Cell.Column = 5 Then
        If UCase(Cell) Like "*BRG*" Then
            If WorksheetFunction.CountIf(Sheet2.Columns(1), Cells(Cell.Row, 2)) = 0 Then
                Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Cells(Cell.Row, 2)
            End If
        End If
    End If
Next Cell

End Sub