毎日更新していくマクロ資料作成

Question

前提・実現したいこと

1日目　Sheet1をコピーし新しいシート作成。

2日目　データ(数字)を打ち換えてコピーし新しいシートの作成。

この作業の繰り返しです。1日ごとの数字は残しておきたくて、コピーを繰り返していきたいです。
ボタンを取り付けて簡単に更新をかけれるようにする予定です。
初歩的な質門かと思いますが、ご助言いただけると幸いです。

↓こういうのしか作れなくてまったくわかりません。
よろしくお願いいたします。

Worksheets("Sheet1").Copy After:=Worksheets(Worksheets.Count)
Range("B7:B15").Select
Selection.ClearContents

Answer 1

Worksheets("Sheet1").Copy After:=Worksheets(Worksheets.Count)

これをActiveSheet.Copy After:=Worksheets(Worksheets.Count)に変更したら解決しました。