【VBA】シートコピー

下記を実行すると、シートの末尾にコピーされます。

Sub 任意名前()
Worksheets("コピーするシート名").Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = Day(Date) & "日分"
End Sub