Как сделать так, чтобы формы заполнялись на разных листах в зависимости от месяца?

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

ЕЖЕДНЕВНЫЙ ЖУРНАЛ ТРЕНИРОВОК И ДИЕТЫ          
Валери Уэнсдей
Тренировка А

Общее количество миль, пройденных в планке (минуты)
6 5

Приседания
30 30

Отжимания         
20          

Лист 2

Дата Тренировка Мили Планка Ситап Приседания Отжимания