Импорт текста из txt в excel

Dim wb1 As Workbook
Dim sh1 As Worksheet
Workbooks.Open "путь к файлу"
Set wb1 = ActiveWorkbook 'мы только что открыли книгу, поэтому знаем, что активная книга - это она и есть
Set sh1 = wb1.Sheets("исх. д.")
 
sh1.Activate
sh1.Range("B13").Select

Dim wb2 As Workbook
Workbooks.Open "путь к ДРУГОМУ файлу"
Set wb2 = ActiveWorkbook

sh1.Range("B13")="какое-нибудь значение"

Sub openfile()
 
Dim wb1 As Workbook
Dim sh1 As Worksheet
 
Dim FName As Variant
FName = Application.GetOpenFilename( _
FileFilter:="Excel Workbooks,*.xl*", _
MultiSelect:=False)
If FName <> Falce Then
Workbooks.Open Filename:=FName
End If
 
Set wb1 = ActiveWorkbook
Set sh1 = wb1.Sheets("исх. д.")
 
End Sub

Sub openfile()
 
Dim wb1 As Workbook
Dim sh1 As Worksheet
 
Dim FName As Variant
FName = Application.GetOpenFilename( _
    FileFilter:="Excel Workbooks,*.xl*", _
    MultiSelect:=False)
If FName <> False Then 'Falce - очепятка. Чтоб такого не было, в начале модуля надо добавить Option Explicit
    Workbooks.Open Filename:=FName
    Set wb1 = ActiveWorkbook
    Set sh1 = wb1.Sheets("исх. д.")
    'здесь пишем остальной код работы с листом. Жить wb1 и sh1 будут в пределах процедуры openfile.
End If
End Sub

Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row '
Cells(LastRow, 1).Offset(0, 0).Select

'.....
 
sh2.Range("B13")=""

Sub Макрос2()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\Magic\Desktop\txt3.txt", Destination:=Range("$A$1"))
        .Name = "txt3"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1251
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileDecimalSeparator = "."
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub