Экспорт и последующий анализ данных spc

Sub CvsToXlsxOneList()
    Dim mRng As Range, x As Range, i&, j&, mARR(), LastCol&
    Dim WbCSV As Workbook, WbSvod As Workbook, ShSvod As Worksheet
    
    Set WbSvod = ActiveWorkbook
    FileCSV = Application.GetOpenFilename(filefilter:="Workbooks(*.csv),*.csv", _
                Title:="Выберите файлы CSV", MultiSelect:=True)
    
    If Not IsArray(FileCSV) Then Exit Sub
    Application.ScreenUpdating = False
    'разброска данных файлов по листам
    'здесь должна быть проверка на на количетво свободных строк в общем файле
    'и в случае необходимости создание нового листа
    On Error Resume Next
    For j = 1 To UBound(FileCSV) 'этот цикл получается не нужен если грузить по одному файлу
        Workbooks.Open (FileCSV(j))
        'в исходном CSV
        'меняем в А1 / на пробел
        'добавляем пустой столбец после столбца А
        'делим столбец А по пробелу (в идеале еще и форматирование применяем чтобы убрать 00:00 после даты и отобразить секунды во времени)
        Set WbCSV = ActiveWorkbook
        With WbCSV
            If j = 1 Then 'этот иф не нужен выполняется поидее только часть после Else
                .Sheets(1).Copy After:=WbSvod.Sheets(WbSvod.Sheets.Count)
                Set ShSvod = ActiveSheet
                ShSvod.Columns.AutoFit
            Else
                With .Sheets(1)
                    .Range(.[a3], .Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count)).Copy
                End With
                ShSvod.Cells(ShSvod.UsedRange.Rows.Count + 1, 1).PasteSpecial
            End If
            .Close False
        End With
    Next
        
    With WbSvod
        'обработка листов
        For j = 2 To .Sheets.Count
            With .Sheets(j)
                ' комбинированный код с Igor_T
                ReDim mARR(0 To .UsedRange.Columns.Count - 1)
                For i = 1 To .UsedRange.Columns.Count:  mARR(i - 1) = i: Next i
                'здесь есть мнение что все таки имеет смысл ограничить проверяемый диапазон 20000 строк
                'т.к. по мере накопления данных функция будет работать все дольше и дольше
                'и начианть с A1 что бы удаляло лишние шапки
                Set mRng = .Range(.[a3], .Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count))
                mRng.RemoveDuplicates (mARR), xlNo
                LastCol = .UsedRange.Columns.Count + 1
                ' вот этот цикл я не до конца понимаю как работает))
                For Each x In mRng.SpecialCells(xlCellTypeBlanks)
                    .Cells(x.Row, LastCol) = 1
                Next
                Set x = .Cells(1, LastCol)
                .UsedRange.Columns(LastCol).ColumnDifferences(x).EntireRow.Delete
            End With
        Next
    End With
    Application.ScreenUpdating = True
End Sub

' код записаный макрорекордером
Columns("B:B").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
'код в макросе
Columns("B:B").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1:A" & ActiveSheet.UsedRange.Rows.Count).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True