есть макрос, который осздает текстовый файл.  
но длина строки в текстовом файле одна и таже.    
 
Нужно чтобы каждая с строка имела разную длину (длины каждой строки имеют размеры: 58, 69, 15, 36 и т.д. 11 значений).  
 
Как это можно сделать ?  
 
вот макрос:  
 
Sub start2()    
 
Open Range("E1") & "\" & Range("E4") & ".txt" For Output As #1 'путь сохранения текстового файла  
Dim s As String * 410  ' длина текстовой строки 410. Нужно чтобы она менялась  
s = ""  
 
For y = 2 To Cells(Rows.Count, 2).End(xlUp).Row Step 3 ' берем данные из листа для заполенения значений в тектовом файле  
For x = 1 To Cells(y, Columns.Count).End(xlToLeft).Column'берем данные из листа для заполенения значений в тектовом файле  
 
Mid(s, Cells(y, x)) = Cells(y + 2, x) 'заполняем текстовую строку  
Next  
Print #1, s; 'печататем текстовую строку в текстовом файле    
s = ""  
Print #1,  
Next  
 
Reset  
End Sub  
 
для удобства так же прикладываю работающйи файл