VBA macro to update advanced filter not working

[JTMartin]

Hi all,
Please see attached. The goal is to update only cell P1 which will then populate the filter criteria in columns S:AD, which in return will automatically re-filter the entire sheet to show only rows with the entered value in any of the columns.

I'm currently using this VBA code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("E1:O178").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
("S2:AD13"), Unique:=False
End Sub

I cannot for the life of me get the rows to automatically re-filter after changing P1. Your help is appreciated!