¿Cómo hago para que el formulario se complete en diferentes hojas según el mes?

Question

Tengo un registro de ejercicio y dieta que completo cada dos días y quiero que los datos pasen a otra hoja. La hoja 1 parece una hoja de trabajo y quiero que se mueva (creo que la mejor manera de hacerlo es con un botón) a la hoja 2.

Pero el primer día de un nuevo mes quiero que empiece a llenarse en una nueva hoja. Entonces sé cómo crear la nueva hoja usando

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

Entonces, el primer día del mes, cuando se ejecuta la macro, se crea una nueva hoja, pero no estoy seguro de cómo enviar el día correcto a la línea correcta en la hoja correcta y luego, cuando se crea una nueva hoja en la primer día del mes, no estoy seguro de cómo hacer que el formulario comience a pasar a la nueva hoja.

Hoja 1

REGISTRO DIARIO DE ENTRENAMIENTO Y DIETA          
valeria miércoles
Entrenamiento A

Total de millas recorridas Tiempo de plancha (minutos)
sesenta y cinco

sentadillas
30 30

Lagartijas         
20          

Hoja 2

Fecha Entrenamiento Millas Plancha Abdominales Sentadillas Flexiones