Visual Basic - Importar archivo de texto con asistente de excel con opciones ya establecidas

Dim LibroDestino As Workbook, LibroOrigen As Workbook

Dim CeldaDestino As Range

Dim RetVal As Boolean

For fila = 3 To 10000

    If Hoja1.Cells(fila, 2) = "" Then

        final = fila

            Exit For

    End If

Next

Application.ScreenUpdating = False

Set LibroDestino = ActiveWorkbook

Set CeldaDestino = Hoja1.Cells(final, 2)

RetVal = Application.Dialogs(xlDialogOpen).Show("*.txt") ' llamado del asistente de excel

If RetVal = False Then Exit Sub

Set LibroOrigen = ActiveWorkbook

Range(Range("A2"), Range("A2").SpecialCells(xlLastCell)).Copy

LibroDestino.Activate

CeldaDestino.PasteSpecial Paste:=xlValues

LibroOrigen.Close False

End sub

With ActiveSheet.QueryTables.Add(Connection:= _

        "TEXT;C:\Users\Kevin\Desktop\DGII_F_606_130704864_201903.txt", Destination:= _

        Range("$A$4"))

        .CommandType = 0

        .Name = "DGII_F_606_130704864_201904"

        .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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _

        1, 1)

        .TextFileTrailingMinusNumbers = True

        .Refresh BackgroundQuery:=False

    End With

End Sub