こんにちは、よねさん

CSVデータをエクセルに書き込む場合
エクセルの最終行を取得して、追加でCSVデータを書き込む方法を教えていただきたいです。
またCSVデータには、1行目に項目行がある為、2行目からのCSVデータをエクセルに追加書き込みをしたいです。

下記のコードはネットから拾ったものです。

Sub CSV入力3()
　　Dim varFileName As Variant

　　varFileName = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", _
　　　　　　　　　　　　　　　　　　　　Title:="CSVファイルの選択")
　　If varFileName = False Then
　　　　Exit Sub
　　End If
　　
　　Workbooks.Open Filename:=varFileName
　　ActiveSheet.Cells.Copy ThisWorkbook.ActiveSheet.Cells
　　ActiveWorkbook.Close SaveChanges:=False
End Sub

以上、よろしくお願いいたします。