Sub ТЕКСТ ()   
 Sheets("N").Select
        Dim ColValue As Range, RowValue As Range, c As Integer, r As Long, MyRange As Range
    Set ColValue = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
                              LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
    c = ColValue.Column
    Set RowValue = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
                              LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
    r = RowValue.Row
    Set MyRange = Range("A1", Cells(r, c))
    MyRange.Select
        p = ActiveWorkbook.Path
        ActiveWorkbook.SaveAs Filename:=p & "\N.txt", FileFormat:=42
        ActiveWorkboos.Close
        Workbooks.Open ThisWorkbook.Path & "\Аксел_ДП.xlsm"
    Sheets("E").Select
        Dim ColValue As Range, RowValue As Range, c As Integer, r As Long, MyRange As Range
    Set ColValue = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
                              LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
    c = ColValue.Column
    Set RowValue = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
                              LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
    r = RowValue.Row
    Set MyRange = Range("A1", Cells(r, c))
    MyRange.Select
        p = ActiveWorkbook.Path
        ActiveWorkbook.SaveAs Filename:=p & "\E.txt", FileFormat:=42
        Workbooks.Open ThisWorkbook.Path & "\Аксел_ДП.xlsm"
    Sheets("Z").Select
        Dim ColValue As Range, RowValue As Range, c As Integer, r As Long, MyRange As Range
    Set ColValue = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
                              LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
    c = ColValue.Column
    Set RowValue = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
                              LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
    r = RowValue.Row
    Set MyRange = Range("A1", Cells(r, c))
    MyRange.Select
        p = ActiveWorkbook.Path
        ActiveWorkbook.SaveAs Filename:=p & "\Z.txt", FileFormat:=42
        Workbooks.Open ThisWorkbook.Path & "\Аксел_ДП.xlsm"
End Sub

!