月ごとに異なるシートにフォームを記入するにはどうすればよいでしょうか?

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

日付 トレーニング マイル プランク 腹筋 スクワット 腕立て伏せ