Após executar a macro, excel fecha sozinho

[INICIANTE1]

Olá, preciso de uma ajuda rs....após executar a Macro depois de uns 2min todo o excel fecha sozinho

1·Na base que uso, tenho duas macros uma para cada necessidade, porém, quando executo uma delas especificamente é quando o excel fecha, segue abaixo:
2· Aproveitando.... Queria saber se é possível onde consta a data na macro abaixo 10/26/2022(mm/dd/aaaa) que eu não precisasse entrar na macro e alterar todos os dias, por exemplo, amanhã terei que alterar para o dia 27 e assim sucessivamente, gostaria que entrasse com a data do dia, tipo a fórmula =HOJE()

Já tentei fazer com a fórmula Filtros, porém, tem muitos critérios e eu não consegui trazer as informações que preciso.

Código: Selecionar todos

Sub TESTE_TESTE()
'
' TESTE_TESTE Macro
'
' Atalho do teclado: Ctrl+Shift+A
'
    Windows("tudo.xls").Activate
    Range("H1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$AC$4293").AutoFilter Field:=19, Criteria1:= _
        "REGISTRO"
    ActiveSheet.Range("$A$1:$AC$4293").AutoFilter Field:=13, Operator:= _
        xlFilterValues, Criteria2:=Array(2, "10/26/2022")
    ActiveSheet.Range("$A$1:$AC$4293").AutoFilter Field:=15, Criteria1:= _
        "=Fechado", Operator:=xlOr, Criteria2:="=Incidente Designado"
    Range("I1200").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("BASE_MATRIZ").Activate
    Range("Tabela2[Número externo]").Select
    ActiveSheet.Paste
    Windows("tudo.xls").Activate
    Range("O1200:P2536").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("BASE_MATRIZ").Activate
    Range("F3").Select
    ActiveSheet.Paste
    Range("C3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("C3"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(9, 9)), TrailingMinusNumbers:=True
    Range("C3").Select
End Sub

[Reinaldo]

Apesar de alg diferente na sequencia da rotina, aparentemente nada que justifique o encerramento do aplicativo
Algma mensagem e exibida antes do fechamento? Visto que a rotina não salva os passos efetuados

[INICIANTE1]

Reinaldo, bom dia!

Não da mensagem alguma, simplesmente encerra e na sequencia abre um novo excel e abre a caixinha perguntando se é para ver mais tarde ou ja salvei não quero ver mais (algo assim) rs.

Para meu arquivo, uso duas macros, quando utilizo a primeira vamos dizer assim, não acontece isso, mas quando uso esta que passei é quando "cai". Até ache que seria por causa da data que preciso inserir manualmente todos os dias, mas já aconteceu de eu colocar a data do dia seguinte, no dia anterior (data de amanhã no arquivo hoje) e mesmo assim isso acontecer. Já fiz o processo de recuperação do Office e o problema persistiu...

[Reinaldo]

Essa "caixinha" e resultado do Crash do excel.
Porem infelizmente somente pela rotina, não é possivel (pelo menos para mim) identificar o que ocorre.
Talvez se dispuser os modelos utilizados (com dados ficticios se necessario)

[webmaster]

INICIANTE1,

Dá uma olhada no Log de Eventos do Windows logo após o erro ocorrer. É a melhor forma de saber o que pode estar acontecendo.