Automatically charting data on a weekly basis for a rolling 12 month period

Private Sub Workbook_Open()
  With Sheets(1)
    If DatePart("w", 2) = 2 and .Cells(.Rows.Count, 13).End(xlUp).Offset(, -1)<>Date Then .Cells(.Rows.Count, 13).End(xlUp).Offset(1, -1).Resize(, 7) = Array(Date, .[I3], .[I10], .[G3], [G4], .[G5], .[G6])
  End With
End Sub