Não entendi o que pretende, você fala em pesquisa e Filtro.

Estou tentando fazer uma busca de cadastro
Se for para pesquisar, onde será mostrado o resultado ?

sem precisar colocar o filtro na planilha
Mas as rotinas que tem em seu modelo são referentes a Filtro, e estão indicando endereços de ranges errados, por exemplo :
wsAtiva.Range("A2:M".... mas você só tem dados a partir da coluna D linha 8.

criterio é a celula E4:G5
Em E4 tem de ter o nome do campo a pesquisar.

Detalhe melhor o que precisa.

[]s

vonzuben, a planilha anexa me parece fazer boa parte do q vc quer, quem sabe ajuda.
Ela está bem explicada.