スキルアップ・問題解決なら、モーグにおまかせ！

下記、コードです。
最終行のテキストを読まず、途中までしかセルに記載がありません。
application 400というエラーがでます。
Sub readtxt1()
    Dim buf As String
    Dim n As Long
    Open "C:\tmp\data.txt" For Input As #1
        Do Until EOF(1)
            Line Input #1, buf
            n = n + 1
            Cells(n, 1) = buf
        Loop
    Close #1
End Sub
 
どこが悪いのでしょうか？
テキストは200行程度です。

これだけの情報では、どこが悪いかを判断することが難しいです。
 意図しない症状が発生したときは、
データ側に問題があるのか？プログラムに問題があるのか？を
切り分けることが先決です。
    
そのためには
 まず、ステップ実行で、データの内容、変数値、及び、プログラムの流れを
観察しましょう。
    
そうすれば、原因が見えてくるかもしれません。
  
   
それから
 ファイル番号は、「#1」ではなくて、
Dim Fno AS Integer
     Fno =FreeFile
  として
#1の代わりに#FNOを使いましょう。
  
Closeすればファイル番号は解放されますが、
 途中でプログラムが停止した場合は、解放されずに残ってしまうので
再実行時のOpenでエラーになります。
Open文の前に
Close #1
を追加すると、テストがやりやすくなります。
  

ちょっと想像できない状況ですね。
こちらでは再現性がありませんので、
質問者さんが状況を確認され、追加情報を提示して頂く必要があると思います。
 
------
以下は別件ですが、この場しかないので書き込みます。
 
>新しい質問をする前に、質問しっぱなしのものをきちんと対応するのが先ですよ。
に対して
>申し訳ございません。
との発言がありました。
 
言葉だけでなく、行動で示して下さいね。
放置されている質問にご自分なりの受け止めを書いたうえで、
きちんと閉じて下さい。
 
あなたの質問したスレッドがどれか分からない状態ということなら、
こちらの掲示板にある検索機能を使って、
検索−詳細検索− 投稿者検索 で検索すればわかるはずです。
 
#　回答するために熟慮中、検討中ということでしたら、どうぞ作業を進めてください。