Option Explicit
Public ID As String
Private pValues() As Variant

' Публичное свойство для чтения массива
Public Property Get Values() As Variant()
    Values = pValues
End Property

' Публичное свойство для записи массива
Public Property Let Values(ByRef arr() As Variant)
    pValues = arr
End Property 

Option ExplicitSub CreateErrorForReport(ByVal errID As String, ParamArray Fields() As Variant)    
  Dim err As New ReportError    
  err.ID = errID    
  err.Values = Fields 
End Sub
Sub Test()    
  CreateErrorForReport "01", 1, 2, 3, 4
End Sub

    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

{ REF ИмяЗакладки \h \* MERGEFORMAT }   

{ REF ИмяЗакладки \h \* CHARFORMAT}

Dim BMRange As Range
'Identify current Bookmark range and insert text
Set BMRange = ActiveDocument.Bookmarks("MyBookmark").Range
BMRange.Text = "Hello world"
'Re-insert the bookmark
ActiveDocument.Bookmarks.Add "MyBookmark", BMRange