Ta faltando informações nesse código ai, não tá não?

De onde saiu esse FreeFile?

Vc deve ter mais coisas, constantes, ou outros códigos que trabalham em conjunto.

Desculpe...minha intenção é criar um txt do intervalo da Plan1 V8:V92.....
Obrigado pela atenção...

Segue anexo!!!

Experimente:

Private Sub CommandButton4_Click()
Dim iArq As Long
iArq = FreeFile
linha = 1
Worksheets("Plan1").Activate
Range("V8").Select
Open "C:ArqExport.txt" For Output As iArq
    Do Until IsEmpty(ActiveCell.Offset(0, 0))
        Print #iArq, Cells(linha, 1)
        If Cells(linha, 1) = Empty Then Exit Do
    Loop
Close #iArq
End Sub

Bom Dia!
Amigos, primeiramente mto obrigado pela atenção!!!!!
Tentei adaptar o código que o amigo me ajudou mas não deu certo....
Hoje eu faço a seguinte rotina: seleciono o intervalo da V8:V92 da plan1 e copio...vou até a área de trabalho e crio um novo documento Bloco de Nota (TXT) e colo a seleção que havia feito. É esta a rotina que estou tentando adaptar através do comando button...Como exemplo anexei a planilha modelo e o arquivo (txt).
Poderiam por favor, me ajudar?
Obs: Desculpe a simplicidade das palavras.