Sub ExportAsText()
Open "C:\primer.txt" For Output As #1
Print #1, Join(Application.Transpose([c7:d7].Value), vbLf)
Close #1
End Sub

Sub Main()
    Dim i As Long, a(), s As String, f As String, fso, ts
    a = [A1].CurrentRegion.Value
    For i = 1 To UBound(a, 1)
        If a(i, 2) <> "" Then s = s & a(i, 1) & a(i, 2) & a(i, 3) & a(i, 4) & Space(Val(a(i, 5))) & a(i, 6) & a(i, 7) & a(i, 8) & Chr(10)
    Next
    f = "C:\primer.txt" 'Подставьте требуемые путь и имя файла
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CreateTextFile f: Set ts = fso.OpenTextFile(f, 2): ts.Write s: ts.Close
End Sub