マクロでCSVをExcelに出力

Question

マクロでcsvをExcelに出力しています。

csvのABC列に並んだ数字がExcelのABC列の1行目から31行目まで表示され時間短縮となってます。
今後、1行目から30行目あたりに別のものを入力したい為、
csvで読み込んだデータをB列の35行目から出力させるということは可能でしょうか？

Sub Sample()
    Dim buf As String, tmp As Variant, n As Long
    Open "C:\Users******\test.csv" For Input As #1
        Do Until EOF(1)
            Line Input #1, buf
            tmp = Split(buf, ",")
            n = n + 1
            Cells(n, 1).Value = tmp(0)
            Cells(n, 2).Value = tmp(1)
            Cells(n, 3).Value = tmp(2)
        Loop
    Close #1
End Sub

試してみたこと、
n = ws.Cells(26, 1).End(xlDown).Row
開始行の指定をしてみましたが、うまくいきません。

有識者の方ご教示いただきたくお願いいたします。

Answer 1

n が行位置なので、
Do ・・・ Loop の前に、下記のコードを挿入すればいいでしょう。

n = 34
Do Until EOF(1)
・・・以下略

コメントに対する回答

この書き方に追加で列を指定することはできませんでしょうか？

34行目5列目（E34）が出力先の起点だとして、

Sub Sample()
    Open "C:\Users******\test.csv" For Input As #1

    Dim r As Long, c As Long
    r = 34
    c = 5

    Dim buf As String, tmp As Variant
    Do Until EOF(1)
        Line Input #1, buf
        tmp = Split(buf, ",")
        r = r + 1
        Cells(r, c).Value = tmp(0)
        Cells(r, c + 1).Value = tmp(1)
        Cells(r, c + 2).Value = tmp(2)
    Loop
    Close #1
End Sub

Comments

[yupon]

ありがとうございます。
うまくいきました。

その後、列も指定したくずっとやっていたのですがうまくいかず、この書き方に追加で列を指定することはできませんでしょうか？

[hatena19]

回答に追記しました。