траблы при воспроизведении макроса

[invester]

Часто приходится обрабатывать инфу в виде такого файла(ishod)
Естественно все числа представлены в виде текста, символ К означает 1000. Так вот, если я заменяю "." на "," и К на 00 получается файл(vihod),
при этом макрос выглядит так:

Sub Макрос1 ()
Range("B:E,J:J").Select
Range("J1").Activate
Application.ReplaceFormat.NumberFor mat = "0.00"
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Columns("F:G").Select
Application.ReplaceFormat.Clear
Selection.Replace What:="K", Replacement:="00", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Application.ReplaceFormat.NumberFor mat = "0"
Selection.Replace What:=".", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
End Sub

Однако, если запустить этот макрос файл получается таким(vihod_tr)

Подскажите, что надо изменить в макросе, чтобы он работал корректно