dataWs.Range(Cells(1, 1), Cells(lR, lC)).Copy
    ws.Activate
    With ws.Cells(1, 1)
        .PasteSpecial xlPasteColumnWidths
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteFormats
    End With

Sub CopyBodyFromWord()

    Dim oOutApp As Object
    Dim oMailItem As Object
    Dim oWordApp As Object
    Dim oWordDoc As Object
    Dim oMailWordDoc As Object
    
    On Error GoTo CleanUp
    
    Set oWordApp = CreateObject("Word.Application")
    oWordApp.Visible = True

    Set oWordDoc = oWordApp.Documents.Open("C:\template.docx", False, True)
    
    oWordDoc.Content.Copy
    
    Set oOutApp = CreateObject("Outlook.Application")
    Set oMailItem = oOutApp.CreateItem(0)
    
    With oMailItem
        .To = "xxx@yyy.com"
        .Subject = "This email contains Word-formatted text"
        .Body = "obrashenie"
        .Display
    End With
    
    Set oMailWordDoc = oOutApp.ActiveInspector.WordEditor
    
    oMailItem.Application.Selection.Paste
     
CleanUp:
    oWordApp.Quit
    Set oMailWordDoc = Nothing
    Set oMailItem = Nothing
    Set oOutApp = Nothing
    Set oWordDoc = Nothing
    Set oWordApp = Nothing

End Sub

    For i = 1 To N_NODES
         If visited(i) <= 1 And edges(node, i) = 1 Then
            VisitForTreeAndCirclesStructure i, visited, edges, Noda, stack
        End If
    Next

    For i = 0 To 22417
    DoEvents
        arr(i) = WorksheetFunction.SumIfs(Worksheets("2").Range("K:K"), Worksheets("2").Range("I:I"), _
            Worksheets("1").Cells(i + 10, 4).Value)
    Next
'Вставляем массив одним действием в табл.1

wd.Bookmarks.Item(markName).Range.Text = x

<customUI onLoad="RibbonOnLoad" xmlns="http://schemas.microsoft.com/office/2006/01/customui">

Public Sub ClearFileForClient(ByRef rc As IRibbonControl)
    HideMyRibbonTab
End Sub

Sub RibbonOnLoad(Ribbon As IRibbonUI)
    Set Ribn = Ribbon
End Sub

Sub HideMyRibbonTab()
    RibnTag = "HideTab"
    If Not Ribn Is Nothing Then
        Ribn.Invalidate
    End If
End Sub

=суммеслимн(Лист2!A:A;Лист2!D:D;F1)

=суммеслимн(Лист2!ДВССЫЛ(Z1);Лист2!D:D,F1)

For Each wb In Application.Workbooks 
    If wb.name Like "1.0*" Then
        newAddress = wb.path & "\[" & wb.name & "]" 'Получаем ссылку
    End If
Next

Dim ttt As String
ttt = "\\path\DATA\[wsName.xlsm]"
With ThisWorkbook.Worksheets(1).UsedRange
    .Replace What:=ttt, _
    Replacement:=newAddress, _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
End With

    ThisWorkbook.ChangeLink name:= _
        "path\DATA\wsName.xlsm", NewName:=newAddress _
        , Type:=xlExcelLinks