' Нужен для полноты примера
Set FSO = CreateObject("Scripting.FileSystemObject")
' Нужен для полноты примера
Set InFile = FSO.OpenTextFile("test.txt")
' Нужен для полноты примера
Set InFile1 = FSO.OpenTextFile("test1.txt")
' Объект приложения
Set xEl = CreateObject("Excel.Application")
' Это свойство чтобы увидеть объект
xEl.Visible = True
' Создается книга
xEl.Workbooks.Add

' Выполнять до конца файла
Do Until InFile.AtEndOfStream
	' Пишем строку первого файла
	xEl.Workbooks(1).ActiveSheet.Cells(InFile.Line - 1, 1) = InFile.ReadLine
	' Пишем строку второго файла
	xEl.Workbooks(1).ActiveSheet.Cells(InFile1.Line - 1, 2) = InFile1.ReadLine
Loop

' Определение диапазона для сортировки
With xEl.Workbooks(1).ActiveSheet.UsedRange
		iRow = .Row + .Rows.Count - 1 ' Последняя строка
		iCol = .Column + .Columns.Count - 1 ' Последний столбец
End With

' Для того чтобы в каждом столбце произошла подгонка по ширине	
For k = 1 to iCol
	xEl.Workbooks(1).ActiveSheet.Cells(iRow, k).EntireColumn.AutoFit
Next

' Для того чтобы поэксперементировать с диапазоном, если снимите комент то увидите где именно находится диапазон
'xEl.Workbooks(1).ActiveSheet.Range(xEl.Workbooks(1).ActiveSheet.Cells(1,1),xEl.Workbooks(1).ActiveSheet.Cells(iRow,iCol)).select
Set objRange = xEl.Workbooks(1).ActiveSheet.Range(xEl.Workbooks(1).ActiveSheet.Cells(1,1),xEl.Workbooks(1).ActiveSheet.Cells(iRow,iCol))
Set objRange2 = xEl.Range("B1")' - Здесь указывается именно та колонка, по которой вы будите сортировать
objRange.Sort objRange2,,,,,,,2,,,1,1' сам метод
Wscript.Echo "Готово"

Sub Макрос5()
'
' Макрос5 Макрос
'

'
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("B13"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Лист1").Sort
        .SetRange Range("B14:F18")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub