Формат данных, импортированных из текстового файла

Question

У меня есть текстовые файлы каждый месяц с разными номерами. партий, которые я ранее вручную редактировал в excel. Теперь я успешно импортировал данные, используя код VBA:

Sub ImportTextToExcel()

Dim xWb As Workbook
Dim xToBook As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xFiles As New Collection
Dim i As Long
Dim xStrValue As String
Dim a, x, ws As Worksheet, r As Long
Dim xRg As Range
Dim xArr

Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
xFile = Dir(xStrPath & "*.txt") 'change.file as per need
If xFile = "" Then
MsgBox "No files found", vbInformation, "Kutools for Excel"
Exit Sub
End If
Do While xFile <> ""
xFiles.Add xFile, xFile
xFile = Dir()
Loop
Set xToBook = ThisWorkbook
On Error Resume Next
Application.ScreenUpdating = False
If xFiles.Count > 0 Then

For i = 1 To xFiles.Count
Set xWb = Workbooks.Open(xStrPath & xFiles.Item(i))
xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)

ActiveSheet.Name = xWb.Name

xWb.Close False

For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Data" Then
ws.Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
End If
Next

For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Data" Then
    ws.Select
    Selection.SpecialCells(xlBlanks).Delete Shift:=xlToLeft
    On Error GoTo 0
End If
Next

Next
End If
Application.ScreenUpdating = True
End Sub

Однако полученные данные по-прежнему неорганизованы, и мне нужно отформатировать их дальше. Пример данных прилагается. Помогите мне, как мне начать это делать. введите описание ссылки здесь