Sub Создать_копию_шаблона()
    
    Dim strSheetName As String
    
    Worksheets("Шаблон").Copy Before:=Worksheets("Шаблон")
    If ActiveSheet.index = 1 Then
        ActiveSheet.name = Format(Date, "yyyy-mm-dd")
        Exit Sub
    End If
    
    strSheetName = ActiveSheet.Previous.name
    strSheetName = CDate(strSheetName)
    strSheetName = DateAdd("d", 7, strSheetName)
    strSheetName = Format(strSheetName, "yyyy-mm-dd")
    ActiveSheet.name = strSheetName
    
    ActiveSheet.ChartObjects("Диаграмма 2").Chart.FullSeriesCollection(1).Values = _
        "='" & ActiveSheet.Previous.name & "'!$E$4:$L$4"
    ActiveSheet.ChartObjects("Диаграмма 1").Chart.FullSeriesCollection(1).Values = _
        "='" & ActiveSheet.Previous.name & "'!$E$2:$L$2"

End Sub