Não tenho certeza de haver entendido a demanda corretamente, experimente:
Obs.: Utilza os dados da Plan2 diretamente

'Gerar o arquivo texto
Private Sub btnGerarArquivo_Click()
Dim txtNome As String
Dim txtLinha As String
Dim nSeq As Integer
Dim rCol As Integer
Dim rLinha As Integer

'Verifica se os campos Caminho e Nome Arquivo estão em Branco
If txtCaminho = "" Or txtNomeArquivo = "" Then
    MsgBox "Caminho ou Nome do Arquivo em Branco !!"
Else
    txtNome = txtCaminho & "" & txtNomeArquivo & ".txt"
    
    nSeq = FreeFile

    'Criar novo arquivo ou sobrescrever arquivo antigo
    Open txtNome For Output As #nSeq
    
    With Sheets("Plan2")
    txtLinha = vbLf
    For rLinha = 2 To 32
        For rCol = 8 To 14 Step 1
            If .Cells(rLinha, rCol) <> "" Then
                'Concatenar a string para definir uma célula da tabela
                txtLinha = txtLinha & .Cells(rLinha, rCol).Value & vbCrLf
            End If
        Next rCol
    Next rLinha
    End With
    
    'Inserir o código gerado no arquivo txt
    Print #nSeq, txtLinha
    'Fechar o arquivo txt
    Close #nSeq
    
    MsgBox "Arquivo criado com sucesso !!!"
    
End If
    
End Sub

Reinaldo,

100%...muito obrigado!!!