Фильтрация записей, где текст поиска находится в середине или конце

Question

Используя автофильтр VBA, я могу искать записи только в тех местах, где искомый текст находится в начале слова или строки, и не похож на поиск в Excel, который может искать, если текст находится в середине или в конце строки или слов.

Вот мой код:

Sub FilterCopyToOtherSheet()

 With ThisWorkbook

  Set oWS1 = .Worksheets("Data")
  Set oWS2 = .Worksheets("Filter Data")
  Set oWS3 = .Worksheets("List")

  oWS2.Cells.ClearContents

  lLastRowTable = oWS1.Cells(oWS1.Rows.Count, 4).End(xlUp).Row
  lLastRowCrit = oWS3.Cells(oWS1.Rows.Count, 1).End(xlUp).Row

    oWS1.Range("C4:AB" & lLastRowTable).AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=oWS3.Range("A1:G" & lLastRowCrit), _
        CopyToRange:=oWS2.Range("A1"), _
        Unique:=False

 End With

End Sub