codice:
Sub copiatxt()

'recupero il valore dell'ultima riga contenente qualcosa nella colonna A
ultima = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
Set fso = CreateObject("Scripting.FileSystemObject")
'passo il percorso del mio file di testo
Set file = fso.OpenTextFile("C:\Documents and Settings\....\tuofile.txt", 1, -2)

i = ultima + 1 'setto l'indice della riga da cui iniziare a scrivere, pari al numero dell'ultima riga già occupata + 1
Do While Not file.AtEndOfStream 'ciclo il mio file di testo
  riga = file.ReadLine 'recupero il contenuto di ciascuna riga
  ActiveSheet.Cells(i, 1).Value = riga 'lo assegno alla cella di excel
  i = i + 1 '.. e incremento il contatore
Loop

file.Close

'libero le risorse
Set file = Nothing
Set fso = Nothing
End Sub