Gostaria de saber se é possivel importar uma coluna especifica de um arquivo txt pra minha planilha do excel? E como poderia ser feito

Tenho uma macro que importa o arquivo txt já pronto, porém preciso de um botão onde eu clico, seleciono meu arquivo e ele já importa os dados daquela coluna com os dados especificos que eu quero, 

[![Importar Apenas Dados da coluna "Status"][1]][1]

Código feito para importação de txt:

    Sub EncontrarTXT()


Dim arquivo As String
Dim sheet As Worksheet


Set Objeto = CreateObject("scripting.filesystemobject") 'Criando objeto

arquivo = Application.GetOpenFilename(Filefilter:="Texto, *.txt") 'Para abrir o documento, janelinha do explorer

If arquivo = "" Or arquivo = "Falso" Then 'Se arquivo for igual a vazio, ou se ele clicar em cancelar retornar "falso", usu�rio n�o selecionou nenhum documento
Exit Sub
End If



Open arquivo For Input As #1

Worksheets("CCD").Activate 'Referencia o objeto para que seja ativada a opção de abrir uma nova planilha

lin = 1

Do Until EOF(1)
    Line Input #1, valorLin
    Cells(lin, 4).Value = valorLin
    lin = lin + 1
Loop

Close #1

Range("D4:D" & lin - 1).TextToColumns Other:=True 'Intervalo em que é inserido os dados e separando por colunas para o tipo de dado escolhido
Columns().EntireColumn.AutoFit 'Faz o ajuste de colunas para obter a melhor largura

End Sub


  [1]: https://i.sstatic.net/IcZQe.png