Excel VBA 宏，使用某模版新建文档时，某些cell自动填充

今天写了一段Excel宏，当根据模版创建Excel时，某些cell的内容自动根据当前机器环境填充。
 

写的很笨拙，因为不太熟悉VBA和Office事件，全看着帮助完成的。高手若能指点一二，敬请留言啊

Private Sub Workbook_Open()
Dim str As String
str = Trim(Range("G22").Value)
If str = "" Then
Range("G22").Value = Now
End If
Dim z As Integer
Dim z2 As Integer

If Range("A1").Value = "" Then
z = Day(Now) Mod 7
z2 = Day(Now)  7
If (z > 0) Then
z2 = z2 + 1
End If
Range("A1").Value = "(" & month(Now) & ")" & "月份第(" & z2 & ")周"
End If
End Sub