Searchable filters

[Jagat Pavasia]

I have VBA code in my excel sheet. I am not expert in VBA code.
I ask someone for my easy work.

now i have auto filter in my excel sheet from A1 to U1.
Means while i type in this range (A1 to U1) then auto filter are start from A3 to U3.

but i want searchable filter.
for example, If i type "beauty" then, all data regarding "beauty, beautiful, beastliness" is coming out.

please edit VBA code and help me.

My VBA code is below

Private Sub worksheet_change(ByVal Target As Range)

Dim rng As Range

  If Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
  ActiveSheet.Unprotect
  Set rng = Range("B:B,K:K")
  If Not Intersect(Target, rng) Is Nothing Then
    If Target.Value = "**" Then Target.Value = Format(Date, "mm/dd/yyyy")
  End If

  If Not Intersect(Target, Range("A1:U1")) Is Nothing Then
      If Target.Value = "" Then
          ActiveSheet.Range("A3:U3").AutoFilter Field:=Target.Column
      Else
          ActiveSheet.Range("A3:U3").AutoFilter Field:=Target.Column, Operator:=xlFilterValues, Criteria1:=CStr(Target.Value)
      End If
  End If
  ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFiltering:=True
  Application.EnableEvents = True
End Sub