Importar ficheiro TXT através de macro Excel

[kinato]

Bom dia Bruno,

Fiz uma pequena alteração no teu programa, em apenas uma linha.
Supõe que pretendes colocar os dados na linha 3 e coluna H.
Na linha de código: Set DestCell = ActiveCell
Coloca: Set DestCell = Cells(3, 8)
O 3 representa a linha e o 8 representa a coluna H.
Faz o ajuste em função da linha e coluna que pretendes colocar os dados e já deves ter o que pretendes.

Cumprimentos,

Kinato