エクセルでマクロでの質問なんですが、ある範囲(1)（例えばB3:D10

質問

エクセルでマクロでの質問なんですが、ある範囲(1)（例えばB3:D10)に、名前・数量・値段を打ち込んで、ボタンを押したら決めた範囲(2)（例えばE5:G50)までの範囲に(1)内容が移動して、また新しく(1)の範囲に記入してボタンを押したら、さっき移動した内容の続き（最終セルの続きから）に移動していくようにしたいのです。つまり、(1)に内容を記入したり消去したりして、ボタンを押したら(2)に蓄積させていきたいのです（空白が無くつめていく）。分かる方がいましたらぜひお力をかしてください。宜しくお願いします。

回答No.1

DIooggooID

一例ですが、・・・

Sub Macro1()

　　Range("B3:D10").Select
　　Selection.Copy
　　Range("E5").Select
　　If ActiveCell.Value <> "" Then
　　　　Range("E5").End(xlDown).Select　　　　
　　　　ActiveCell.Offset(1, 0).Select
　　End If
　　ActiveSheet.Paste
　　Application.CutCopyMode = False
　　Range("B3:D10").Select
　　Selection.ClearContents
　　ActiveCell.Resize(1, 1).Select

End Sub

お礼

ありがとうございました。一つ謎がとけてスッキリしました！！
また息詰まったときには宜しくお願いいたします。

補足

追加質問です！
前回の謎は解けたのですが、前回の場合に付け加えて、ボタンを押したら範囲（２）（E5:G50)に移動したあとに、（２）に移動したあとの（D5:F50)に記入された内容（D5:D50にはあらかじめ記入していることがある）が別のシート（例：魚シート）の（B5:D50)の範囲に記入されるようにしたいのです。（魚シートに記入される内容範囲はボタンを押したときに（２）に移動する内容と同じ範囲分）この二つの動作をその一つのボタンを押したらできるようにしたいのですがよく分かりません。どうかお力をかして下さい。宜しくお願いいたします。