Como faço para preencher formulários em diferentes folhas com base no mês?

Eu tenho um diário de exercícios e dieta que preencho todos os dias e quero que os dados passem para outra folha. A folha 1 parece uma planilha e eu quero que ela se mova (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 começar a preencher uma nova folha. Então eu sei como criar a nova folha 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 em que a macro é executada, ela cria uma nova planilha, mas não sei como enviar o dia correto para a linha correta na planilha correta e, em seguida, quando uma nova planilha é criada na planilha. primeiro dia do mês, não sei como fazer com que o formulário comece a ir para a nova planilha.

Folha 1

DAILY WORKOUT AND DIET LOG          
Valerie         Wednesday
Workout         A

Total Miles Run         Plank Time (minutes)
6           5

Situps          Squats
30          30

Pushups         
20          

Folha 2

Date   Workout   Miles  Plank   Situps  Squats  Pushups