Application.ScreenUpdating = False
Application.ScreenUpdating = False
For i =  1  To  2 
  row =  1 
Set wb = Workbooks.Open("C:\vb\pr2\" & i & ".xls")
On Error GoTo ErrHandler
'  With Workbooks(i & ".xlsx").Worksheets(1)
  With wb.Worksheets( 1 )
    iLastRow = .Cells(.Rows.Count,  1 ).End(xlUp).row +  1 
    ' MsgBox iLastRow
   For k =  1  To iLastRow
     If .Cells(k,  1 ).Interior.ColorIndex =  15  Or k =  4  Then
       mas(i, row) = k
'         MsgBox mas(i, row)
       row = row +  1 
     End If
   Next k
 End With
 wb.Close
Next i


ExitHandler:
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "Ошибка:" & Err.Description
    Resume ExitHandler