Auto Filter multiple word

[SURYA2016]

Below macro code working H2 cell only, I need multiple criteria filter H2 & H3 & H4 cells also

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$2" Then
If Range("H2") = "" Then
Range("A5").AutoFilter
Else
Range("A5").AutoFilter Field:=2, Criteria1:=Range("H2")
End If
End If
End Sub

 

[Fluff]

You're welcome & thanks for the feedback.