大神请赐教EXCEL工资表一个表格每月在同一栏中填写，另外一个表格自动生成当月的。

Sub aa()
    Dim str As String
    Dim i, k, j, m, n As Integer
        i = Sheets(1).Range("a" & Cells.Rows.Count).End(3).Row
       n = Sheets(Sheets.Count).Range("a" & Cells.Rows.Count).End(3).Row
        m = 2
       If Day(Now) = 1 Then
star:          With Worksheets.Add(, Sheets(Sheets.Count))
                          .Name = Month(Now) & "月工资条"
          End With
          For k = 1 To i Step 2
              Sheets(1).Range("a1").Resize(1, 20).Copy Sheets(Sheets.Count).Range("a" & k)
           Next
           For j = 2 To i Step 2
               Range("a" & m).Resize(1, 20).Copy Sheets(Sheets.Count).Range("a" & j)
               m = m + 1
           Next
        Else
           If Sheets.Count = 1 Then
               GoTo star
           End If
           Sheets(1).Range("a" & i).Resize(1, 20).Copy Sheets(Sheets.Count).Range("a" & n + 1)
        End If
End Sub