Вот эта программа работает на перенос с Excel в блокнот строк и столбцов
скопировать строку в excel и вставить в txt через visual basic


Function Export2txt(fn As String, Rg As Range)    
   cOutAll = ""
   
 
   nLastRow = Rg.Rows.Count
   nLastCol = Rg.Columns.Count
   For i = 1 To nLastRow
       cOut = ""
       For j = 1 To nLastCol
           cOut = cOut & vbTab & CStr(Rg.Cells(i, j))
       Next
       cOutAll = cOutAll & Mid(cOut, 2) & vbCrLf
   Next
   
    On Error Resume Next: Err.Clear
    Dim fso As Object, ts As Object
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.OpenTextFile(fn, 8, True)
       
    ts.Write (cOutAll)
    ts.Close
    Set ts = Nothing
    Set fso = Nothing
    Return
   
End Function

Sub Ìàêðîñ1()
'
' Ìàêðîñ1 Ìàêðîñ
'

'
 

Dim rg1 As Range, res, a As String
a = CStr("D:\" & Worksheets("Exp").Cells(1, 1).Value)
Set rg1 = Worksheets("Exp").Range(Worksheets("Exp").Cells(6, 4), Worksheets("Exp").Cells(10, 5))

res = Export2txt(fn:=a, Rg:=rg1)

End Sub