'заполняем отчет
  For j =  1  To num_params -  1 
  
    res = - 1 

    lngFRow_start = lngFRow
    
    For i =  1  To num_files
      
      Set wb = Workbooks.Open(path_files & i & ".xls")
      
      With wb.Worksheets(num_list)
         
        If mas_files_down(i, j) = - 1  Then
          
          wb.Close
          
        Else
          
          res =  1 
          
          avarTMP = Range(.Cells(mas_files_params(i, j) +  1 ,  2 ), .Cells(mas_files_down(i, j) -  1 , num_cols)).Value
          
          With Workbooks("report.xls").Worksheets(num_list)
            
            lngLRow = lngFRow + UBound(avarTMP,  1 ) -  1 
            
            If lngLRow >= mas_bottom_report(j) Then
              
              wb.Close
              
              Exit For
            
            End If
            
            .Cells(lngFRow,  [b]2 ).AddComment[/b]

            .Cells(lngFRow,  2 ).Comment.Text Text:="bla-bla-bla"

            .Cells(lngFRow,  2 ).Comment.Visible = False
            
            Range(.Cells(lngFRow,  2 ), .Cells(lngLRow, num_cols)) = avarTMP
            
            Range(.Cells(lngFRow,  1 ), .Cells(lngLRow,  2 )).Interior.ColorIndex = mas_colors_index(i)
            Range(.Cells(lngFRow,  4 ), .Cells(lngLRow, num_cols)).Interior.ColorIndex = mas_colors_index(i)
        
          
          End With
          
          lngFRow = lngLRow +  1 
          
          wb.Close
          
        End If
        
      End With
      
    Next i

    If res <> - 1  Then

      Cells(lngFRow_start,  1 ) =  1 

      For k = lngFRow_start +  1  To lngFRow -  1 

        Cells(k,  1 ) = Cells(k -  1 ,  1 ) +  1 

      Next k

    End If

    lngFRow = mas_bottom_report(j) +  1 
    
  Next j

.Cells(lngFRow,  2 ).AddComment "bla-bla-bla"