エクセル2010 マクロでデータ場所を移動

質問

エクセル2010を使っています。

画像の様に、一日分のデータ　【　ＡＬ　３　】　～　【　ＡＺ　９８　】があります。

この一日分のデータを、上のデータ保存を押した時にＢＣ３～ＢＱ９８セルに貼り付けするにはどの用にしたら良いでしょうか？

また、次の日には新しいデータが貼り付けられ、【　ＡＬ　３　】　～　【　ＡＺ　９８　】の部分は新しい数値が入ります。

今度は、前日に保存したＢＣ３～ＢＱ９８をＢＣ９９～ＢＱ１９４に移動し、２日分のデータが保存されることになります。

こうやって、ボタンを押すごとに一日分ずつ下の行にデータを保存したいです。

マクロや関数に詳しい方、よろしくお願いいたします。

回答No.1

MarcoRossiItaly · ベストアンサー

Sub StoreData()
　　Range(Range("bc3"), Cells(Rows.Count, "bq").End(xlUp)).Copy Destination:=Range("bc99")
　　Range("al3:az98").Copy
　　Range("bc3").PasteSpecial xlPasteValues
End Sub

回答No.2

keithin

sub macro1()
　range("AL3:AZ98").copy
　range("BC3:BQ98").insert shift:=xlshiftdown
　application.cutcopymode = false
end sub