How do I make form fill out to different sheets based on the month?

I have an exercise and diet log that I fill out every other day and I want the data to move to another sheet. Sheet 1 looks like a worksheet and I want it to move (I think the best way to do this is with a button) to sheet 2.

But on the first day of a new month I want it to start filling out in a new sheet. So I know how to create the new sheet using

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:UsersValerieDocumentsTemplate.xls"

If Day(Date) = 1 Then ActiveSheet.Name = szTodayDate

End Sub

So on the first day of the month when the macro is run it creates a new sheet, but I'm not sure how to send the correct day to the correct line on the correct sheet, and then when a new sheet is created on the first day of the month, I'm not sure how to make the form start going to the new sheet.

Anyways, I wasn't sure how to ask this question on google so I came here.

Thanks