Sub Коррекция()

On Error GoTo Err
Application.DisplayAlerts = False
    Columns("C:C").Select
    
        ReplaceFormat:=False
    Selection.Replace What:=".", Replacement:=";", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
      
    Selection.Copy
    Workbooks.Add
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    ActiveWorkbook.SaveAs Filename:="f:\Проект\Администрации\Дата\book6.txt", _
        FileFormat:=xlText, CreateBackup:=False
    Range("B1").Select
    ActiveWindow.Close
    Workbooks.OpenText Filename:="f:\Проект\Администрации\Дата\book6.txt", _
        Origin:= 1251 , StartRow:= 1 , DataType:=xlDelimited, TextQualifier:=xlNone _
        , ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:= _
        False, Space:=False, Other:=False, FieldInfo:=Array(Array( 1 ,  2 ), Array( 2 ,  2 ) _
        , Array( 3 ,  2 ), Array( 4 ,  2 ), Array( 5 ,  2 )), TrailingMinusNumbers:=True
    Columns("A:E").Select
    Selection.Copy
    Windows("Data.xls").Activate
     'ActiveSheet.Paste
 

    
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight
    Columns("C:C").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Range("A2").Select

Err:
    Application.DisplayAlerts = True
    
End Sub