Sub Post_Processor()
            Dim arr, strc$, Filename
            ' вывод диалогового окна для запроса имени сохраняемого файла
10        Filename = Application.GetSaveAsFilename("latin.pd4", "HIRZT (*.pd4),", , _
                     "Введите имя файла для сохраняемого отчёта", "Сохранить")
            ' если пользователь отказался от выбора имени файла - отменяем сохранение листа в файл
20        If VarType(Filename) = vbBoolean Then Exit Sub
30        arr = ActiveSheet.Range("A1").CurrentRegion.Value
40        strc = Join(Application.Transpose(arr), vbNewLine)
50        With CreateObject("scripting.filesystemobject").CreateTextFile(Filename, True)
60            .Write strc: .Close
70        End With
End Sub

strc = Join(Application.Transpose(arr), vbNewLine)