Sub WU_Eiiiea1_Uaeeioou()
  Dim i As Integer
  Dim j As Integer
  Dim MySheet As Worksheet
  Dim MySheet1 As Worksheet
  Dim TxtFileName As Variant
  Dim TxtBook As Workbook
  Application.ScreenUpdating = False
  Set MySheet = ActiveSheet
  
  TxtFileName = Application.GetOpenFilename("TXT For Microsoft Office Excel (*.txt), *.txt")
  
  If TxtFileName <> False Then
  
    Workbooks.OpenText Filename:=TxtFileName _
                                , Origin:=xlWindows _
                                , DataType:=xlDelimited _
                                , Other:=True, OtherChar:=";"
    Set TxtBook = Workbooks(Workbooks.Count)
    
    'MsgBox ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
    
    'MsgBox TxtFileName
    
    If Mid(TxtFileName,  8 ,  2 ) = "01" Then
    
        For i =  6  To  195  'ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
            For j =  6  To  125  'ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
                If TxtBook.Worksheets( 1 ).Range("B" & (j)) = MySheet.Range("B" & (i)) Then
                        TxtBook.Worksheets( 1 ).Range("C" & (j)) = -(TxtBook.Worksheets( 1 ).Range("D" & (j)) + TxtBook.Worksheets( 1 ).Range("E" & (j)))
                        TxtBook.Worksheets( 1 ).Range("N" & (j)) = -(TxtBook.Worksheets( 1 ).Range("O" & (j)) + TxtBook.Worksheets( 1 ).Range("P" & (j)))
                        TxtBook.Worksheets( 1 ).Range("C" & (j)).Copy MySheet.Range("C" & (i))
                        TxtBook.Worksheets( 1 ).Range("N" & (j)).Copy MySheet.Range("D" & (i))
                Else
                        MySheet.Range("C" & (i)).Copy MySheet.Range("C" & (i))
                End If
                x =  195  +  6  - i
                
                Application.StatusBar = "Wait:  " & x    ' Это для визуализации работы макроса

            Next
        Next
    End If
    
     Application.StatusBar = False
     Application.ScreenUpdating = True
    
    TxtBook.Saved = True
    TxtBook.Close

End If
End Sub

Камилов Д.Ю.; 10250  
Камилов Д.Ю.;; 103 . 26 

Dim i
Dim x
Dim nmArray()
Dim eurArray()
Dim usdArray()
Dim rubArray()

Const ForReading =  1 

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
    ("c:\temp\Test.txt", ForReading)
	
ReDim nmArray( 0 )
ReDim eurArray( 0 )
ReDim usdArray( 0 )
ReDim rubArray( 0 )

Do Until objTextFile.AtEndOfStream
    strNextLine = objTextFile.Readline
    'strNextLine = Replace(strNextLine, ".", ",")  'раскомментировать, если разделитель дробной части в системе ","
    strNextLine = Replace(strNextLine, ";;", ";")  'закомментировать, если ошибок с ";;" больше не будет
    arrLineList = Split(strNextLine , ";")
    x= 0 
	flag =  0 

	For i =  0  To UBound(nmArray)
        If nmArray(i) = arrLineList( 0 ) Then
		 flag =  1  ' takoe znacenie uze estj
		 x=i
		End if
    Next
	
	If flag =  0  Then
		ReDim Preserve nmArray(UBound(nmArray) +  1 )
		nmArray(UBound(nmArray)) = arrLineList( 0 ) ' zanosim v massiv
		x = UBound(nmArray)
	End if
	
	if Right(arrLineList( 1 ),  1 )="$" then 
		ReDim Preserve usdArray(x)
		If flag =  0  Then
		usdArray(UBound(usdArray)) = CDbl(Trim(Left(arrLineList( 1 ), Len(arrLineList( 1 ))- 1 )))
		Else
		usdArray(x) = CDbl(usdArray(x)) + CDbl(Trim(Left(arrLineList( 1 ), Len(arrLineList( 1 ))- 1 )))
		End If
	end If

	If IsNumeric(Right(arrLineList( 1 ),  1 )) then
		ReDim Preserve eurArray(x)		
		If flag =  0  Then
		eurArray(UBound(eurArray)) = CDbl(Trim(arrLineList( 1 )))
		Else
		eurArray(x) = eurArray(x) + CDbl(Trim(arrLineList( 1 )))
		End If
	End If

	if Right(arrLineList( 1 ),  1 )="." then 
		ReDim Preserve rubArray(x)		
		If flag =  0  Then
		rubArray(UBound(rubArray)) = CDbl(Trim(Left(arrLineList( 1 ), Len(arrLineList( 1 ))- 4 )))
		Else
		rubArray(x) = CDbl(rubArray(x)) + CDbl(Trim(Left(arrLineList( 1 ), Len(arrLineList( 1 ))- 4 )))
		End If
	end If

	
Loop

objTextFile.Close

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True
objExcel.Workbooks.Add
objExcel.Cells( 1 ,  1 ).Value = "Клиент"
objExcel.Cells( 1 ,  2 ).Value = "Доллар"
objExcel.Cells( 1 ,  3 ).Value = "Рос."
objExcel.Cells( 1 ,  4 ).Value = "Евро"

For ex =  1  To UBound(nmArray)
	objExcel.Cells(ex+ 1 ,  1 ).Value = nmArray(ex)
	objExcel.Cells(ex+ 1 ,  2 ).Value = usdArray(ex)
	objExcel.Cells(ex+ 1 ,  3 ).Value = rubArray(ex)
	objExcel.Cells(ex+ 1 ,  4 ).Value = eurArray(ex)
Next