Auto Filter Rows Based on Similar Cell Value

I currently use the following cell to auto filter rows based on their values:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("B3").Address Then
Range("B8:B13625").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("B2:B3")
End If
End Sub

This works well If the cell values in the filter range begin with the search criteria: however, I am wanting to filter any cell that contains the search criteria, not just begins with it.

Any advice? Much appreciated.