Importação de arquivo .txt automaticamente

Boa noite!

Preciso de ajuda para buscar um arquivo .txt para importação no Excel automaticamente, dentro de uma pasta no C:, sem precisar abrir o código VBA toda a vez para alterar o endereço do arquivo? Se possível alterar no código abaixo:

Sub Importar_Relatório()

’ Importar_Relatório Macro

’ Atalho do teclado: Ctrl+Shift+R

Range(“A2”).Select
Rows(“2:2”).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range(“A3”).Select

Range("A2").Select
Application.CutCopyMode = False
With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;C:\Conciliação da Retenções Federais\10-2019\Relatório - 10-2019.txt" _
    , Destination:=Range("$A$2"))
    .Name = "Relatório.txt"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 1252
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileOtherDelimiter = ";"
    .TextFileColumnDataTypes = Array(1, 2, 2, 4, 4, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
End With
Rows("2:2").Select
Selection.RowHeight = 35
Columns("A:A").ColumnWidth = 14
Range("A3").Select

End Sub