[VBA]コピーしたデータを別シートの最終列の次の列に貼り付けたい

Question

前提・実現したいこと

表題にもある通り、コピーしたデータを別シートの最終列の次の列に貼り付けたいです。
xlToRightを使ってやるんだろうなとは思っているんですが、
Range("A1")の部分を変えて書いてみても上手くコードが動かなかったため、質問させて頂きました。。

現在のコード

Range(Range("C8"), Cells(Rows.Count, 3).End(xlUp)).Copy ThisWorkbook.Sheets("データ").Range("A1")

ツールのバージョン

Excel 2016

Answer 1

1行目の最終列を取得できればいいということですよね。

3列目の最終行は、
Cells(Rows.Count, 3).End(xlUp)
で取得するというコードは書けているので、それを応用すればすぐできると思いますが。

1行目の最終列の一つ右
Cells(1,columns.Count).End(xlToLeft).Offset(,1)

Comments

[Jonny_dayo]

わああああああああ出来ましたありがとうございます！！！