Option Explicit

Private Sub Command1_Click()
Dim ExA As Excel.Application
Dim wb As Workbook

Dim vTmpT As Variant, vTmpE As Variant, vTmpS As Variant
Dim s As String, s1 As String
Dim i As Long, t As Long

Set ExA = CreateObject("Excel.Application"

With ExA
    Set wb = .Workbooks.Add(App.Path & "\tmp.xlsx" 'открываем рабочую книгу, если офис<2007 то расширение .xls
    .Visible = True 'чтобы потом лишние процессы ручками не выгружать
    s = vbNullString: i = 1
    Do
        If Len(.Cells(i, 1)) = 0 Then Exit Do 'перебираем 1 столбец пока он не "кончится"
        s = s & .Cells(i, 1).Value & Chr(2)
        i = i + 1
    Loop
    'Получаем список заголовков
    vTmpE = Split(s, Chr(2)) 'список номеров по порядку из книги
    
    Open App.Path & "\tmp.txt" For Input As #1 'открываем текстовый файл
    Do While Not EOF(1)
        Line Input #1, s
        s1 = s1 & s & vbCrLf
    Loop
    vTmpS = Split(s1, vbCrLf) 'строки из тектового файла
    
    s = vbNullString
    For i = 0 To UBound(vTmpS) - 1 'перебираем все строки еще раз, с целью выдрать из них номера
        vTmpT = Split(vTmpS(i), ";"
        s = s & vTmpT(1) & Chr(2)
    Next
    Erase vTmpT
    vTmpT = Split(s, Chr(2)) 'список номеров из тектового файла
    
    'Упорядочиваем все как в книге
    s = vbNullString
    For i = 0 To UBound(vTmpE)
        For t = 0 To UBound(vTmpT)
            If vTmpE(i) = vTmpT(t) Then s = s & vTmpS(t) & vbCrLf: t = UBound(vTmpT) '
        Next
    Next
    
    Close 'закрываем все потоки
    
    Open App.Path & "\out.txt" For Output As #1
    Print #1, s 'выводим результат
    
End With

End Sub

Workbooks.OpenText FileName:="C:\form.txt", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 1), _
        Array(3, 1), Array(4, 1))
    Range("A1:K1372".Select
    Selection.Copy
    Windows("form1.xls".Activate
    Range("A3".Select
    ActiveSheet.Paste
    Windows("form.txt".Activate
    Range("A7".Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWorkbook.Close SaveChanges:=False
    Columns("A:A".Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Columns("B:B".Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Columns("C:C".Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Columns(":D".Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Columns("E:E".Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Columns("F:F".Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Columns("H:H".Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Columns("I:I".Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Columns("J:J".Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Columns("K:K".Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Range("A9".Select
        
    Range("F3:K1398".Select
    Selection.NumberFormat = "#,##0.00"
    Range("F3".Select
    
  
End Sub

И хочется добавить проверку во время загрузки на совпадение значений в ячейках книги и записях в текстовом файле, и при совпадении загружать строку из текстового файла в строку книги Excel где совпали значения.

Из твоего примера, я понял как можно произвести поиск, но там идет привязка к каким-то определенным символам, как я понял, это символы "S1", т.е. те, с которых начинается каждая строка. Можно ли написать цикл с проверкой, грубо говоря, по "координатам" в текстовике ? На случай если ключевые значения будет начинаться не с "S1". Например с самой первой записи в строке.

Dim  vTmpT, s as string
s="133;gfrt;464"
vTmpT = Split(s, ";"
'vTmpT(0)=133
'vTmpT(1)=gfrt
'vTmpT(2)=464