Як змусити форму заповнити різні аркуші залежно від місяця?

У мене є журнал фізичних вправ і дієти, який я заповнюю через день і хочу, щоб дані перейшли на інший аркуш. Лист 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

Дата тренування Miles Plank Situps Squats Pushups