VBA 実行時エラー 1004 の表示が出る

質問

下記のVBAを作成していてエラーが出てしまいます

やりたいこととしてはボタンを選択すると
特定のシート[AAA]の最終行を取得して
別シート[BBB]の2行目をシート[AAA]との最終行までコピーすることです

---

Private Sub CommandButton_Click()

Sheets("AAA").Range("A1", Cells(Rows.Count, 1).End(xlUp)).Offset(, 1).Resize(, 3).Formula = Sheets("BBB").Range("B2:D2").Formula

End Sub

回答No.1

watabe007 · ベストアンサー

>Cells(Rows.Count, 1)
特定のシートを指定する場合、こちらもシートを指定する必要があります。

Sheets("AAA").Range("A1", Sheets("AAA").Cells(Rows.Count, 1).End(xlUp)).Offset(, 1).Resize(, 3).Formula = Sheets("BBB").Range("B2:D2").Formula

補足

ありがとうございます！
ご指摘いただいた箇所を修正してみたところエラーはありませんでした

ただ、シート[AAA]と同じ行までコピーすることができませんでした
まだ何か悪い場所があるようですので思案してみたいと思います。