Como faço para preencher o formulário em planilhas diferentes de acordo com o mês?

Question

Tenho um registro de exercícios e dieta que preencho dia sim, dia não e quero que os dados sejam transferidos para outra planilha. A planilha 1 parece uma planilha e quero movê-la (acho que a melhor maneira de fazer isso é com um botão) para a planilha 2.

Mas no primeiro dia de um novo mês quero que comece a ser preenchido em uma nova planilha. Então eu sei como criar a nova planilha 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

Portanto, no primeiro dia do mês, quando a macro é executada, ela cria uma nova planilha, mas não tenho certeza de como enviar o dia correto para a linha correta na planilha correta e, quando uma nova planilha é criada no primeiro dia do mês, não sei como fazer o formulário começar a ir para a nova planilha.

Folha 1

EXERCÍCIO DIÁRIO E REGISTRO DE DIETA          
Valéria quarta-feira
Treino A

Tempo total de corrida na prancha de milhas (minutos)
6 5

Agachamentos
30 30

Flexões         
20          

Folha 2

Data treino milhas prancha abdominais agachamentos flexões