Nao entendi direito sua planilha, mas tente application.screen updating = false antes do codigo e application.screen updating = tue , após o código, isso evitará que as telas sejam manejadas durante o processamento.

Obrigado pela atenção vou tentar se melhorar marco como respondido obg novamente

basicamente fazer oq o smile falou

Sub FILTRAR_NFS()

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
...

mas o ideal seria refazer a macro Tirando os select
e pra ficar mais facil entender oq se está fazendo usar formulalocal se o excel for em portugues ou formua se for em ingles em vez de formula r1c1

    Sheets("DADOS").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(TRIM(MID(RC[-2],9,15))=""Estabelecimento"",TRIM(MID(R[1]C[-2],25,10)),"""")"

ficando assim

  Sheets("DADOS").Range("C4").FormulaLocal = _
        "=SE(ARRUMAR(EXT.TEXTO(A4;9;15))=""Estabelecimento"";ARRUMAR(EXT.TEXTO(A5;25;10));"""")"

desse jeito não fica pulando de tela e vc pode controlar oq a formula está fazendo e onde

se forem muitas formulas
se deve colocar elas em um array para então coloca na plan, isso evita que o excel faça checagem de dependência
ou vc pode usar apenas os valores da formula

ok Edcronos vou tentar se melhorar vou marcar como respondido desde ja obrigado pela sua atençao

BOA NOITE.
DESDE JÁ OBRIGADO A TODOS QUE ME AJUDARAM A TIRAR AS MINHAS DUVIDAS E ME AJUDAREM A RESOLVER O MEU PROBLEMA! SÃO PESSOAS IGUAIS A VOCÊS QUE FAZER A DIFERENÇA PARA NOS QUE ESTAMOS INICIANDO NO MUNDO DO VBA A FICAR CADA DIA MELHOR E CONSEQUENTEMENTE AJUDAR AOS PRÓXIMOS QUE TIVEREM DUVIDAS ASSIM COMO VOCÊS ESTÃO FAZENDO POR MIM. OBRIGADO PELA ATENÇÃO E COLABORAÇÃO DE TODOS.