Function randb(a, b)
    Application.Volatile False
    Randomize Timer
    randb = Int(Rnd * (b - a)) + a
End Function

Sub x()
    Dim r As Range
    With [Таблица1[#all]]
        Set r = .Offset(.Rows.Count + 1)(1, 1)
        .Copy r: r.ListObject.Name = "Таблица2"
    End With
    With [Диаграмма 1].Duplicate
        .Top = .BottomRightCell.Offset(1).Top
        .Left = .Left - 12
        .Name = "Диаграмма 2"
        .Chart.SetSourceData [Таблица2]
    End With
End Sub

Dim i As Integer                      'Хранение целых чисел
i = FormRV.Txb_index.Value                      'Номер колонки, таблицы tabl_name
Range("tabl_name").Columns(i).Copy
Range("AQ8").PasteSpecial xlPastevalues'Вставить скопированную колонку с таблицы tabl_name, на текущий лист в ячейку AQ8

Activesheet

ActiveWindow.SelectedSheets

ActiveWindow.VisibleRange

Option Explicit
Dim dic As Object
Function HbA1c(v As Variant, ByRef r As Range) As Variant
    Dim s$
    Application.Volatile False
    s = Application.Caller.Address(, , , 1)
    HbA1c = v
    If dic Is Nothing Then Set dic = CreateObject("scripting.dictionary")
    If dic(s) <> v Then
        dic(s) = v
        On Error Resume Next
        Evaluate "Module1.xx(" & s & "," & r.Cells(Application.Match(v, r.Value)).Interior.Color & ")"
    End If
End Function
Sub xx(ByRef r As Range, c&)
    r.Interior.Color = c
End Sub

=HbA1c(ВЫБОР(ОКРУГЛ(--ПСТР(N23;4;2)/7;)+1;P11;P9;P7)/1,307086614;гемоглобин!B4:B143)

=МИН(B2:H2^(C2:I2=МАКС(C2:I2)))

let
    Source        = Table.TransformColumnTypes(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],{{"День", type date},{"Час", type time}}),
    Filter        = Table.SelectRows(Source,each [#"Накопительный Т_1 (час)"]<>null),
    Filter1       = Table.SelectRows(Source, each [#"Накопительный Т_1 (час)"]=null)[[День],[Час],[T_1],[N_1]],
    GroupByDate   = Table.Group(Filter1, {"День"}, {{"", each _, type table}, {"b", each List.Sum([T_1]), type number},{"c", each List.Count([T_1]), type number}}),
    fn = (a,b,s) => let
        a = ((a) => List.Buffer(List.Accumulate(List.Positions(a),{},(b,c)=>b&{(try b{c-1} otherwise 0)+a{c}})))(List.Buffer(a))
    in Table.AddColumn(Table.AddIndexColumn(b, "i", 0, 1),s,each a{[i]}),
    fn1 = (_) => let
        Record  = Record.RenameFields(Cumulatively{[День=[День]{0}]},{{"","a"}}),
        ForHour = fn(Record[a][T_1],Record[a],"Накопительный Т_1 (час)"),
        ForDay  = Table.AddColumn(ForHour, "Накопительный Т_1 (День)", each if [i]+1=Record[c] then Record[d] else null)
    in Table.RemoveColumns(ForDay,{"i","День"}),
    Cumulatively   = fn(GroupByDate[b],GroupByDate,"d"),
    Cumulatively1  = Table.RemoveColumns(Table.TransformColumns(Cumulatively,{"",fn1}), {"b","c","d","i"}),
    Expand         = Table.ExpandTableColumn(Cumulatively1, "", {"Час", "T_1", "N_1", "Накопительный Т_1 (час)", "Накопительный Т_1 (День)"})
in
    if Table.RowCount(Filter1)>0 then Table.Combine({Filter,Expand}) else Source

let
    Source        = Table.TransformColumnTypes(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],{{"День", type date},{"Час", type time}}),
    Filter        = Table.SelectRows(Source,each [#"Накопительный Т_1 (час)"]<>null),
    Filter1       = Table.SelectRows(Source, each [#"Накопительный Т_1 (час)"]=null)[[День],[Час],[T_1],[N_1]],
    GroupByDate   = Table.Buffer(Table.Group(Filter1, {"День"}, {{"a", each _, type table},{"b",each List.Sum([T_1])}})),
    f1=(a)        =>List.Buffer(List.Generate(()=>[i=0,v=a{0}],each [i] < List.Count(a),each [i=[i]+1,v=[v]+a{i}],each [v])),
    f2=(t)=>let
        rec       = Cumulatively{[День=t[День]{0}]},
        a         = f1(List.Buffer(t[T_1])),
        b         = List.Zip(List.Reverse(((a)=>List.Zip({a,{rec[b]}}))(List.Reverse(a)))),
        c         = Table.FromColumns(Table.ToColumns(t)&b,Table.ColumnNames(Source))
    in Table.RemoveColumns(c,{"День"}),
    Cumulatively  = Table.FromColumns(List.RemoveLastN(Table.ToColumns(GroupByDate),1)&{f1(GroupByDate[b])},Table.ColumnNames(GroupByDate)),
    Cumulatively1 = Table.ExpandTableColumn(Table.TransformColumns(Cumulatively,{{"a",f2}}), "a", List.Skip(Table.ColumnNames(Source),1))
in
    if Table.RowCount(Filter1)>0 then Table.Combine({Filter,Table.RemoveColumns(Cumulatively1,{"b"})}) else Source

Sub qwe()
    Application.ScreenUpdating = False
    With ThisDocument.Tables(1)
        rty .Range, "О" & ChrW(1187) & "т" & ChrW(1199) & "стік " & ChrW(1178) & "аза" & ChrW(1179) & "стан"
        rty .Range, "Солт" & ChrW(1199) & "стік " & ChrW(1178) & "аза" & ChrW(1179) & "стан", "Т" & ChrW(1199) & "ркістан"
        rty .Range, "Алматы " & ChrW(1179) & "аласы", "Шымкент " & ChrW(1179) & "аласы"
    End With
    Application.ScreenUpdating = True
End Sub
Sub rty(ByVal r As Range, s1$, Optional s2$)
    With r.Find
        .ClearFormatting
        .Execute s1
        If Not .Found Then Exit Sub
        If s2 = "" Then
            .Parent.Cells.Delete wdDeleteCellsEntireRow
        Else
            .Parent.Select
            With Selection
                .InsertRowsBelow 1: .Collapse 1: .TypeText s2
            End With
        End If
    End With
End Sub