Boa noite pessoal!

Estou com certa dificuldade em conseguir criar uma macro/codigo que retorne o nome de empresas que contenham uma palavra que estará especificada em uma célula.

Ex: Eu escrevo "Brasil" em B1

Na lista que será filtrado o valor B1 deverá ter 3 nomes similares: "Brasil One", "Empresa Brasil" e "Imperio Brasil LTDA".

Preciso que a macro seja capaz de utilizar como filtro o que contenha na célula B1.

Segue comando que tentei criar, porém falha na parte do AutoSearch:

Primeiramente ela seleciona e copia

 Selection.Clear
    Sheets("INICIO").Select
    Range("B1").Select
    Selection.Copy
    Sheets("FILTRO").Select
    ActiveSheet.Range("$A$1:$A$10").AutoFilter Field:=1, Criteria1:= _
      [b]  "=BR 1 Brasil", Operator:=xlOr, Criteria2:="=Brasil 1 BR"[/b] [color=#400000][u]Aqui está o erro, pois ele cola não a referência B1 da Sheet INICIO, mas o valor em si que foi copiado do B1, não tornando possível a automatização do processo..
[/u][/color]     Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("LISTA SUSPENSA").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("INICIO").Select
    Application.CutCopyMode = False
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=NOME"
    End With
End Sub

Segue em anexo a planilha...

ALGUÉM PODE ME AJUDAR?? ((

Tks pessoal