Problemas para Importar dados de Planilha Fechada usando Filtro Avançado via VBA.

[kleberaq]

Oi, boa noite! Tudo bem? Preciso de ajuda...

Minha planilha faz o download do arquivo: https://www.gov.br/anp/pt-br/assuntos/precos-e-defesa-da-concorrencia/precos/precos-revenda-e-de-distribuicao-combustiveis/shlp/mensal/mensal-municipios-desde-jan2022.xlsx/@@download/file/MENSAL_MUNICIPIOS-DESDE_Jan2022.xlsx
Após isso ele renomeia para: "D:\Usuario\Downloads\VALORES-COMBUSTIVEIS-MENSAL-MUNICIPIOS.xlsx"
Até este ponto, tudo funcionando.

Agora em diante, começa o problema...
O site sempre atualiza e tenho de colocar o novo link para download da planilha. E aí o problema começa, quando preciso atualizar isso no código VBA, pois preciso editar ele todo para importar os dados da planilha recém baixada e renomeada automaticamente.
Quando ele executa o código dá erro ao tentar importar as informações seguindo um filtro avançado.

Estou querendo importar os dados da planilha "VALORES-COMBUSTIVEIS-MENSAL-MUNICIPIOS.xlsx" pasta "MUNICÍPIOS - JAN 22 EM DIANTE", linha "A17:Z1048576".
E jogar os dados na planilha "Financeiro.xlsx" pasta "COMBUSTIVEL", linha "AB6:AZ6".
Seguindo os dados de filtros inseridos em: "B1:S2".



Link das planilhas(livre para edição):
https://drive.google.com/drive/folders/1DRY6bHVzZeJ1raDnNv8xMFkV16BXV-Fj?usp=sharing
BKP Link das planilhas(travado contra edição):
https://drive.google.com/drive/folders/1-PiyGESZzlZ0WEatR2jIxXex_VqE8t8l?usp=sharing


Código VBA feito mas com erro:

Sub FiltrarCombustivel()
'
' FiltrarCombustivel Macro
'

'
Application.ScreenUpdating = False
'Faz atualização dos dados, sem ficar mostrando na tela, de forma muito mais rápida e economiza processamento.

    'Range("B7").Select
    'Range(Selection, Selection.End(xlDown)).Select
    'Range(Selection, Selection.End(xlToRight)).Select
    'Selection.ClearContents
    'Range("B7").Select
    'Range(Selection, Selection.End(xlDown)).Select
    'Range(Selection, Selection.End(xlToRight)).Select
    'Selection.ClearContents
    
    Plan19.Range("AB7:XFD1048576").ClearContents
    'Plan19 só dá pra saber pela tela ao lado em "Projeto - VBAProject", neste caso o nome estava "Plan19 (Combustivel)", portanto Plan19.
    'Serve para limpar Células de um intervalo específico
    
    Workbooks.Open("D:\Usuario\Downloads\mensal-municipios-desde-jan2013.xlsx").Activate
    Range("A17").Select
    
    Windows("Financeiro.xlsm").Activate
    Workbooks.Open("D:\Usuario\Downloads\mensal-municipios-desde-jan2013.xlsx").Sheets( _
        "MUNICÍPIOS - DESDE JAN. DE 2013").Range("A17:Z1048576").AdvancedFilter Action _
        :=xlFilterCopy, CriteriaRange:=Range("AB1:AZ2"), CopyToRange:=Range("AB6:AZ6") _
        , Unique:=False

    ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
'Faz atualização dos dados, sem ficar mostrando na tela, de forma muito mais rápida e economiza processamento.
End Sub