Sub csv_aaa()
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
    .Calculation = xlManual
End With
Dim iPath As String
Dim iFileName As String
Dim AvArr() As Variant
Dim i As Long
    iPath = ActiveWorkbook.Path
    iFileName$ = Dir(iPath$ & "\*.csv")
    Do While iFileName$ <> ""
    Workbooks.Open Filename:=iFileName$
        Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    s = Cells(Rows.Count, 1).End(xlUp).Row
    ReDim AvArr(1 To s, 1 To 2)
    For n = 1 To s
        AvArr(n, 1) = Range("A" & n).Value
        AvArr(n, 2) = Range("J" & n).Value
    Next
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:=Left(iFileName, Len(iFileName) - 3) & "xlsx"
    Range("A1:B" & s) = AvArr()
    Range("A" & s + 1) = "Итого"
    Range("B" & s + 1) = s - 1
    With ActiveWorkbook
    .Save
    .Close
    End With
    Windows(iFileName$).Close
    iFileName$ = Dir
    Loop

With Application
    .ScreenUpdating = True
    .DisplayAlerts = True
    .Calculation = xlAutomatic
End With
    MsgBox ("Готово")
End Sub

Workbooks.Open Filename:=iPath & "\" & iFileName$

ActiveWorkbook.SaveAs Filename:=iPath & "\" & Left(iFileName, Len(iFileName) - 3) & "xlsx"