Sub importOptLast_3()                           ' объявили макрос
    Dim arr, a, b, i&, x&, n&                   ' ввели переменные
    arr = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\BCS_Work\QUIK\QPILE\История параметров.CSV", 1).ReadAll, vbCrLf) ' присвоили переменной "arr" значение из файла, который для этого открыли и прочли записанную в нем инфу (массив)
    n = 1                                       ' переменной "n" присвоено начальное значение
    ReDim a(1 To 11, 1 To 1)                    ' не понял, но может здесь формируется массив определённого вида (количество элементов в строке и т.д.)
    If i = UBound(arr) Then                     ' если значение "i" равно верхней границе массива "arr" (последнее значение), то...
            'ReDim Preserve a(1 To 11, 1 To n)   ' каким-то образом отформатировать массив?
            b = Split(arr(i), ";")              ' разбить элемент "i" массива "arr" по разделителю ";"
            'For x = 0 To UBound(b): a(x + 1, n) = b(x): Next ' для введённых ранее переменных "Х" со значениями от 0 до верхней границы массива... дальше не понял
            n = n + 1                           ' увеличить переменную "n" на 1 (сделать ещё шаг)
        End If                                  ' закончить оператор "if"
        [AI33].Resize(UBound(a, 2), 11) = Application.Transpose(a) ' записываем в AI33... больше не понял((
        MsgBox ("importOptLast_3 прочтён!")     ' сделал для того чтоб видеть что код вообще считывается
End Sub                                         ' закрыли макрос

For xA = 0 To UBound(bA): aA(xA + 1, nA) = bA(xA): Next

: Next

Sub MyMacroEXCHANGE2HugoMaxWay()
Dim sh As Worksheet
' Application.OnTime Now() + TimeSerial(0, 5, 0), "MyMacroEXCHANGE2HugoMaxWay" 

 ' импорт всей истории цены
 Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Users\1_H1.CSV", 1)    'Подставьте свой путь к txt-файлу
    arr = Split(ts.ReadAll, vbCrLf)    'массив строк текста целиком
    ts.Close

    ReDim a(1 To UBound(arr) + 1, 1 To 7)

    For i = 0 To UBound(arr)
        b = Split(arr(i), ";")
        For x = 0 To UBound(b)
            a(i + 1, x + 1) = b(x)
        Next
    Next
[b1].Resize(UBound(a), UBound(a, 2)) = a

 ' импорт всей истории счёта
 Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\История параметров.CSV", 1)    'Подставьте свой путь к txt-файлу
    arr = Split(ts.ReadAll, vbCrLf)    'массив строк текста целиком
    ts.Close

    ReDim a(1 To UBound(arr) + 1, 1 To 11)

    For i = 0 To UBound(arr)
        b = Split(arr(i), ";")
        For x = 0 To UBound(b)
            a(i + 1, x + 1) = b(x)
        Next
    Next
[V33].Resize(UBound(a), UBound(a, 2)) = a

' импорт текущего состояния счёта
Dim arrA, aA, bA, iA&, xA&, nA&
    arrA = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\История параметров.CSV", 1).ReadAll, vbCrLf)
    n = 1
    ReDim aA(1 To 11, 1 To 1)
    For iA = UBound(arrA) To 0 Step -1
       If arrA(iA) <> "" And Mid(arrA(iA), 12, 2) = "00" Then
            ReDim Preserve aA(1 To 11, 1 To n)
            bA = Split(arrA(iA), ";")
            For xA = 0 To UBound(bA): aA(xA + 1, nA) = bA(xA): Next
            nA = nA + 1
        End If
    Next
    [j33].Resize(UBound(aA, 2), 11) = Application.Transpose(aA)

' импорт последних данных о цене
Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Users\1_H1_LAST.CSV", 1)    'Подставьте свой путь к txt-файлу 
    arr = Split(ts.ReadAll, vbCrLf)    'массив строк текста целиком 
    ts.Close   ReDim a(1 To UBound(arr) + 1, 1 To 7) 
  For i = 0 To UBound(arr)
        b = Split(arr(i), ";")
        For x = 0 To UBound(b)
            a(i + 1, x + 1) = b(x)
        Next
    Next
[x3].Resize(UBound(a), UBound(a, 2)) = a  

 'экспорт в сторонний файл  
Application.ScreenUpdating = 0
    Application.DisplayAlerts = 0
Dim PUT_FILE_out, lst As Variant
lst = "К экспорту"
PUT_FILE_out = Application.ActiveWorkbook.Path + "\" + lst + ".tri"
   
    Sheets(lst).Copy
    'ActiveWorkbook.SaveAs Filename:=PUT_FILE_out, FileFormat:=xlUnicodeText
    ActiveWorkbook.SaveAs Filename:=PUT_FILE_out, FileFormat:=xlText
    ActiveWindow.Close

    Application.ScreenUpdating = 1
    Application.DisplayAlerts = 1
End Sub