Attribute VB_Name = "Module4"
Sub Макрос()
Attribute Макрос.VB_ProcData.VB_Invoke_Func = "к\n14"
'

'

'
    Rows("1:2").Select
    Selection.Delete Shift:=xlUp
    Columns("A:I").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:D").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "OGRN"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Name"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Brief"
    Range("E2").Select
    ChDir "C:\"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Реестр 3.02.2015.txt", FileFormat:=xlText, _
        CreateBackup:=False
End Sub

Set XL = CreateObject("Excel.Application")
Set WB = XL.Workbooks.Open("c:\myfile.xlsx")
Set WS = WB.Worksheets(1)
'
    WS.Rows("1:2").Delete 
    ws.Columns("A:I").Delete 
    ws.Columns("D:D").Delete 
    ws.Range("A1").FormulaR1C1 = "OGRN"
    ws.Range("B1").FormulaR1C1 = "Name"
    ws.Range("C1").FormulaR1C1 = "Brief"
    WB.SaveAs Filename:="C:\реестр.txt", FileFormat:=xlText, _
	CreateBackup:=False
    WB.Close
    XL.Quit