intCountRowInArray = lngHighBorder - lngLowBorder + 1 'количество строк в массиве
ReDim arrValues(intCountRowInArray, 8)  'назначим массив (число аргументов, разделенных запятой - число размерностей;
'значения аргументов - значения размерностей; т.е. в данном случае это двумерная таблица с intCountRowInArray числом строк и 8 столбцами)
intRowIndexInArray = 0
For lngRow = lngLowBorder To lngHighBorder
    
    'заполняем строку массива
    arrValues(intRowIndexInArray, 0) = mxlSheetWithActualDiapasons.Cells(lngRow, 3).Value
    arrValues(intRowIndexInArray, 1) = mxlSheetWithActualDiapasons.Cells(lngRow, 6).Value
    arrValues(intRowIndexInArray, 2) = mxlSheetWithActualDiapasons.Cells(lngRow, 8).Value
    arrValues(intRowIndexInArray, 3) = mxlSheetWithActualDiapasons.Cells(lngRow, 10).Value
    arrValues(intRowIndexInArray, 4) = mxlSheetWithActualDiapasons.Cells(lngRow, 12).Value
    arrValues(intRowIndexInArray, 5) = mxlSheetWithActualDiapasons.Cells(lngRow, 22).Value
    arrValues(intRowIndexInArray, 6) = mxlSheetWithActualDiapasons.Cells(lngRow, 14).Value
    arrValues(intRowIndexInArray, 7) = mxlSheetWithActualDiapasons.Cells(lngRow, 18).Value
    arrValues(intRowIndexInArray, 8) = mxlSheetWithActualDiapasons.Cells(lngRow, 20).Value
    intRowIndexInArray = intRowIndexInArray + 1
       
Next lngRow

'вызов процедуры К1П2 (массив как аргумент)
Application.Run gvarFileAndProcedureNames, gstrSheetName, garrValues

Public Sub FillTableWithPokazatelFromArray(gstrSheetName As String, ByRef garrValues() As Variant)

Dim xlSheet As Excel.Worksheet
Dim varMemberArray As Variant
Dim intRowIndexInArray As Integer
Dim intRowIndex As Integer

    Set xlSheet = Application.Sheets(gstrSheetName)
    
    Rem If UBound(garrValues) > 0 Then
        
        intRowIndex = 3 'заполняем таблицу с показателями значениями из массива, начиная с 3 строки
        
        'от первой до последней строки массива
        intRowIndexInArray = 0
        For intRowIndexInArray = 0 To UBound(garrValues(1))
            
            'вызовем установку границ Range
            mintRowIndexBegin = intRowIndex
            mintRowIndexEnd = intRowIndex
            Call SetBordersForRange(mstrSheetName, mintRowIndexBegin, 20, mintRowIndexEnd, 28)
            
            'заполним Range значениями из массива
            xlSheet.Cells(intRowIndex, 20) = garrValues(intRowIndexInArray, 0)
            xlSheet.Cells(intRowIndex, 21) = garrValues(intRowIndexInArray, 1)
            xlSheet.Cells(intRowIndex, 22) = garrValues(intRowIndexInArray, 2)
            xlSheet.Cells(intRowIndex, 23) = garrValues(intRowIndexInArray, 3)
            xlSheet.Cells(intRowIndex, 24) = garrValues(intRowIndexInArray, 4)
            xlSheet.Cells(intRowIndex, 25) = garrValues(intRowIndexInArray, 5)
            xlSheet.Cells(intRowIndex, 26) = garrValues(intRowIndexInArray, 6)
            xlSheet.Cells(intRowIndex, 27) = garrValues(intRowIndexInArray, 7)
            xlSheet.Cells(intRowIndex, 28) = garrValues(intRowIndexInArray, 8)
                        
            intRowIndex = intRowIndex + 1
            
        Next intRowIndexInArray
        
    Rem End If
    
End Sub