Informação muito genérica.
Creio eu que A5 da plan1 seja a primeira célula da tabela, ou Não??
Eu diria para experimentar:

Private Sub cmdBuscar_Click()
'executa o filtro
ActiveSheet.Range("$A$5:$A$65000").AutoFilter Field:=1, Criteria1:=txtConstrutora.text
txtConstrutora.SetFocus
End Sub

Funcionou!

Porém quando executa a função, ele não só filtra, mas oculta todas as outras linhas que não contenham tal valor.

Tem alguma idéia do porque isso acontece?

Desde já agradeço.

A "função" do AutoFiltro e justamente essa, ocultar, na mesma planilha, valores que não atendam ao filtro desejado.
Caso não seja isso que estava esperando, é necessário decidir/estabelecer o que deseja/espera que seja executado