如何根據月份將表格填寫到不同的表格中？

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

每日運動和飲食日誌          
瓦萊麗星期三
鍛鍊A

總里程 平板支撐時間（分鐘）
6 5

仰臥起坐 深蹲
30 30

伏地挺身         
20          

表2

日期運動 英哩 平板支撐 仰臥起坐 深蹲 伏地挺身