[[20170401180612]]　『VBA データの最終行の一つ下に張り付ける』（ミー太郎）　ページの最後に飛ぶ

『VBA データの最終行の一つ下に張り付ける』（ミー太郎）

お世話になります。初めてのVBAの作業中です。

使うシート
sheet1・・・貼り付け先　1行目は見出し
sheet2・・・貼り付け元　1行目は見出し

sheet2のA2（見出しの下）から始まるデータを、最終行まで取得し
（A2から、shift+ctrl+下矢印で選択されるデータ）

sheet1のAの最終行の一つ下のセル　に値貼り付け　したく、
下記でやってみました。

Sub test()

 Sheets("sheet2").Activate
 Range(Range("A2"), Cells(Rows.Count, 1).End(xlUp)).Select
 Selection.Copy

 Sheets("sheet2").Activate
 Range("A1").End(xlDown).Offset(1, 0).Select
 Selection.PasteSpecial Paste:=xlPasteValues

End Sub

が、エラーが出てしまいます。
実行時エラー1004
アプリケーション定義またはオブジェクト定義のエラーです

どこをどう直せばいいのか分からず、お知恵を貸していただけませんでしょうか。

よろしくお願いいたします。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

見出し（A1)しかデータがない状態で

＞Range("A1").End(xlDown).Offset(1, 0).Select

は、A2を選択できません。

End(xlUp)を使うとよいです。

（マナ） 2017/04/01(土) 18:31

（マナ） 2017/04/01(土) 19:02

マナ様

お世話になります。こちらありがとうございました！うんうん悩んでいたものが一発で解決しました。
また解説のURLもありがとうございます。勉強させていただきます。

（ミー太郎） 2017/04/01(土) 20:26

コメント返信：