マクロでCSVをExcelに出力

マクロで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
開始行の指定をしてみましたが、うまくいきません。

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

行動規範の内容に同意します

回答1件

ベストアンサー

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

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

コメントに対する回答

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

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

vba
1Sub Sample()
2    Open "C:\Users******\test.csv" For Input As #1
3
4    Dim r As Long, c As Long
5    r = 34
6    c = 5
7
8    Dim buf As String, tmp As Variant
9    Do Until EOF(1)
10        Line Input #1, buf
11        tmp = Split(buf, ",")
12        r = r + 1
13        Cells(r, c).Value = tmp(0)
14        Cells(r, c + 1).Value = tmp(1)
15        Cells(r, c + 2).Value = tmp(2)
16    Loop
17    Close #1
18End Sub
19