Sub u()
Dim iShp As Shape, arr()

lastrow = Worksheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row
ReDim Timee(1 To lastrow - 1) As Double, debit(1 To lastrow - 1)
k = 1

For i = 2 To lastrow
    Timee(k) = Range("a" & i).Value
    debit(k) = Range("b" & i)
    k = k + 1
Next i

With Worksheets("Лист2")
    '---удаляем все диаграммы на листе---
    For Each iShp In .Shapes
        If iShp.Type = msoChart Then iShp.Delete
    Next
    '------------------------------------
    arr = .Range("A2:B" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
    With .Shapes.AddChart(xlLineMarkers, 120, 10, 700, 300).Chart
        With .SeriesCollection(1)
            .XValues = Timee ' Application.Index(arr, , 1)  '
            .Values = debit 'Application.Index(arr, , 2)  '
        End With
    End With
End With

End Sub

With .SeriesCollection(1)

Dim Dates(1 To 30) As Date

For z = i To j - 1
    If Range("A" & z) > "01.01.2018" Then
       Dates(t) = CDate(Range("A" & z))

        ......

       t = t + 1
    End If
Next z

WsG.Activate
    ActiveSheet.Shapes.AddChart.Select
    With ActiveChart
    .ChartType = xlXYScatterSmooth
    .SeriesCollection.NewSeries
    .SeriesCollection(1).Name = "="""KGF""
    .SeriesCollection(1).XValues = Dates
    .SeriesCollection(1).Values = KGF

=РЯД("KGF";{"1/1/2019";"1/1/2020";"1/1/2021";"1/1/2022";"1/1/2023";"1/1/2024";"1/1/2025";"1/1/2026";"1/1/2027";"1/1/2028";"1/1/2029";"1/1/2030";"1/1/2031";"1/1/2032";...

WorkersColl.Add .Range("B" & i).Value, CStr(.Range("B" & i).Value)

Public WorkersColl As Collection

Public SheetNameText As String
Sub SetText(control As IRibbonControl, text As String)
     SheetNameText = text
End Sub

Sub find_well_in_activewb()
Dim Sheet_name As String
Sheet_name = SheetNameText
ActiveWorkbook.Worksheets(Sheet_name).Activate
End Sub

Public Sub testeditbox(ctrl As IRibbonControl, tttt$) 
MsgBox tttt 
End Sub 
Function tttt(control As IRibbonControl, ByRef returnedVal) 
returnedVal = "" 
End Function

 <editBox id="edBox" enabled="true" getText="tttt" onChange="testeditbox"/>

Option Explicit

Public RibbonTextBox As String

'Callback for MyEditBox onChange
Sub SetTextValue(control As IRibbonControl, text As String)
     RibbonTextBox = text
End Sub

'Callback for MyButton1 onAction
Sub HelloWorld(control As IRibbonControl)
     MsgBox RibbonTextBox
End Sub

<editBox id="SheetName" onChange="SetText" getText="GetText" label="Имя листа"/>
<button id="Button1" label="Найти лист в открытой книге" onAction="find_well_in_activewb" size="large" imageMso="FindDialog"/>

    For j = 1 To N_pipe
        NKT_info(j, 1) = L & j
        NKT_info(j, 2) = d & j
    Next j

Workbooks(FileNameGraf).Sheets(SheetName).ChartArea.Copy
ThisWorkbook.Activate
With Worksheets("Расчет")
    .Range("F11").Select
    .Paste
    .Range("E6").Copy ' "очищаем" буфер обмена
End With 

For P_tr = 5 To 40 

Dim Current As Long

    Current = Timer
    Do Until Timer - Current >= 10
        DoEvents
    Loop 

Call Q_guess_VJ
Call Q_guess_VJ
Call Q_guess_NK
Call Q_guess_SP

Call Q_guess_VJ
Call Q_guess_NK
Call Q_guess_SP

Function 123()
Dim Q_guess1 As Double, Q_guess2 As Double, Q_guess3 As Double
Dim A1 As Double, A2 As Double, A3 As Double, P_tr As Double
Q_guess3 = 400
For P_tr = 5 To 40
    Q_guess1 = Q_guess3
    Q_guess2 = 0.9 * Q_guess3
    A1 = V_zab(Q_guess1, P_tr) - 100500
    A2 = V_zab(Q_guess2, P_tr) - 100500

    ....
    A3 = V_zab(Q_guess3, P_tr) - 100500

   ....
Next P_tr
ThisWorkbook.Worksheets("Расчет").ChartObjects.Select
With ActiveChart
    .SeriesCollection.NewSeries
    .SeriesCollection(.SeriesCollection.Count).XValues = VJ_XTable
    .SeriesCollection(.SeriesCollection.Count).Values = VJ_YTable
End With
End Function 

Call Q_guess_VJ
Call Q_guess_SP
Call Q_guess_NK