월별로 다른 시트에 양식을 작성하려면 어떻게 해야 합니까?

Question

격일로 작성하는 운동 및 다이어트 로그가 있는데 해당 데이터를 다른 시트로 이동하고 싶습니다. 시트 1은 워크시트처럼 보이며 시트 2로 이동하고 싶습니다(이 작업을 수행하는 가장 좋은 방법은 버튼을 사용하는 것입니다).

하지만 새 달의 첫날에 새 시트를 작성하기 시작하고 싶습니다. 그래서 나는 다음을 사용하여 새 시트를 만드는 방법을 알고 있습니다.

Sub Macro1()

    Dim szTodayDate As String
    szTodayDate = Format(Date, "mmmm")
    On Error GoTo MakeSheet
    Sheets(szTodayDate).Activate
    Exit Sub

MakeSheet:

    Dim Importsheet As Worksheet 'Imports worksheet from a closed workbook
    If Day(Date) = 1 Then Sheets.Add Type:= _
    "C:\Users\Valerie\Documents\Template.xls"

    If Day(Date) = 1 Then ActiveSheet.Name = szTodayDate

End Sub

따라서 매크로가 실행되는 달의 첫날에 새 시트가 생성되지만 올바른 날짜를 올바른 시트의 올바른 줄로 보내는 방법을 잘 모르겠습니다. 그런 다음 새 시트가 생성되면 매월 첫째 날, 양식이 새 시트로 이동하기 시작하는 방법을 잘 모르겠습니다.

시트 1

일일 운동 및 다이어트 로그          
발레리 웬즈데이
운동 A

총 마일수 플랭크 실행 시간(분)
6 5

윗몸 일으키기 스쿼트
30 30

팔굽혀펴기         
20          

시트 2

데이트 운동 마일즈 플랭크 윗몸일으키기 스쿼트 팔굽혀펴기