Private Sub CommandButton1_Click()
Dim oChart As Chart
Set oChart = ActiveWorkbook.Charts.Add(, ActiveSheet)
oChart.SetSourceData (Sheets("List1").Range("B1:B10,C1:C10"))

oChart.Axes(xlCategory).CategoryNames = Sheets("List1").Range("A1:A10")
oChart.ChartType = xlLineStacked

oChart.Location xlLocationAsObject, "graf"
End Sub

Sub graf_1()
    Worksheets("list1").Select
    Application.ScreenUpdating = False: On Error Resume Next
    Dim ra_n1 As Range: Set ra_n1 = Range(Worksheets("list1").Cells(2, 1), Range("A" & Rows.Count).End(xlUp))
    Dim ra_1 As Range: Set ra_1 = Range(Worksheets("list1").Cells(2, 2), Range("D" & Rows.Count).End(xlUp))
 '   Dim ra_2 As Range: Set ra_2 = Range(Worksheets("list1").Cells(2, 5), Range("G" & Rows.Count).End(xlUp))
 '   Dim ra_3 As Range: Set ra_3 = Range(Worksheets("list1").Cells(2, 8), Range("I" & Rows.Count).End(xlUp))

    ChartTop = 20
    
    txt1 = "Title 1"
 '   txt2 = "Title 2"
 '   txt3 = "Title 3"
    
    CreateChart ra_n1, ra_1, ChartTop, txt1: ChartTop = ChartTop + 220
 '   CreateChart ra_n1, ra_2, ChartTop, txt2: ChartTop = ChartTop + 220
 '   CreateChart ra_n1, ra_3, ChartTop, txt3: ChartTop = ChartTop + 220
    
    
    Worksheets("list2").Select
    Dim ra_n2 As Range: Set ra_n2 = Range(Worksheets("list2").Cells(2, 1), Range("A" & Rows.Count).End(xlUp))
    Dim ra_4 As Range: Set ra_4 = Range(Worksheets("list2").Cells(2, 2), Range("E" & Rows.Count).End(xlUp))
    
    txt4 = "Title 4"
 
    CreateChart ra_n2, ra_4, ChartTop, txt4: ChartTop = ChartTop + 220
    
    Worksheets("graf").Cells(1, 1).Select
    
End Sub


Sub CreateChart(ByRef ra1 As Range, ByRef ra2 As Range, ByVal ChartTop, ByVal Caption)
    Dim MyCh As Chart    ' (Left, Top, Width, Height)
    Set MyCh = ra1.Parent.ChartObjects.Add(10, ChartTop, 600, 200).Chart
    MyCh.SeriesCollection.Add Source:=ra2, RowCol:=xlColumns    'Добавить ряды данных
    MyCh.ChartType = xlLineStacked    ' тип диаграммы
    MyCh.Axes(xlCategory).CategoryNames = ra1    'Изменить ось категорий
    MyCh.HasLegend = True ' легенда
    MyCh.HasTitle = True:    MyCh.ChartTitle.Characters.Text = Caption ' заголовок
    MyCh.Location Where:=xlLocationAutomatic, Name:="graf"
    
End Sub

Private Sub CommandButton3_Click()flag = 0
Worksheets("Лист3").Cells(1, 1) = 0
Worksheets("Лист3").Cells(1, 2) = 0
Worksheets("Лист3").Cells(1, 3) = 0
Do
    s1 = Second(Time)
    Worksheets("Лист3").Cells(1, 1) = s1
    If ((s1 = 20) Or (s1 = 50)) And (flag = 0) Then           ' на 20-й и 50-й секунде запускаем notepad.exe
        Worksheets("Лист3").Cells(1, 2) = s1
        Shell "C:\Windows\System32\notepad.exe"
        flag = 1
    End If
    If (s1 = 21) Or (s1 = 51) Then flag = 0
    If (s1 = 15) Or (s1 = 45) Then                                   ' на 15-й и 45-й секунде убиваем notepad.exe
        Worksheets("Лист3").Cells(1, 3) = s1
        Shell "taskkill.exe /f /im notepad.exe"
    End If
    DoEvents
Loop
End Sub

Set ws = CreateObject("WScript.Shell" )
Do 
Wscript.Sleep 240000 
ws.SendKeys "{F15}" 
Loop 

Private Sub CommandButton1_Click()
    Do While 1 < 100
        Application.SendKeys "{F1}"
    Loop
End Sub