Wie erstelle ich ein monatsabhängiges Ausfüllen von Formularen auf unterschiedlichen Blättern?

Question

Ich habe ein Trainings- und Diätprotokoll, das ich jeden zweiten Tag ausfülle, und ich möchte, dass die Daten auf ein anderes Blatt verschoben werden. Blatt 1 sieht aus wie ein Arbeitsblatt, und ich möchte es (ich denke, die beste Möglichkeit hierfür ist eine Schaltfläche) auf Blatt 2 verschieben.

Aber am ersten Tag eines neuen Monats möchte ich, dass ein neues Blatt ausgefüllt wird. Ich weiß also, wie ich das neue Blatt erstelle mit

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

Wenn das Makro also am ersten Tag des Monats ausgeführt wird, wird ein neues Blatt erstellt. Ich weiß aber nicht genau, wie ich das richtige Tag an die richtige Zeile auf dem richtigen Blatt sende. Und wenn dann am ersten Tag des Monats ein neues Blatt erstellt wird, weiß ich nicht genau, wie ich das Formular dazu bringe, mit dem Wechsel zum neuen Blatt zu beginnen.

Blatt1

TÄGLICHES TRAININGS- UND DIÄTPROTOKOLL          
Valerie Mittwoch
Training A

Gesamtkilometer Plank-Zeit (Minuten)
6 5

Situps Kniebeugen
30 30

Liegestütze         
20          

Blatt 2

Datum Workout Meilen Plank Situps Kniebeugen Liegestütze