Sub a()
'Application.ScreenUpdating = False
Set myObject = ActiveWorkbook
kol_vo_str =  0 
Dim ir As Long
Dim iSource As Range
Dim mas_( 9 )
mas_( 1 ) = "11"
mas_( 2 ) = "22"
mas_( 3 ) = "33"
mas_( 4 ) = "44"
mas_( 5 ) = "55"
mas_( 6 ) = "66"
mas_( 7 ) = "77"
mas_( 8 ) = "88"
mas_( 9 ) = "99"

For ik =  1  To  9 
With Application.FileSearch
.NewSearch
.LookIn = "с:\db\" + mas_(ik)
.SearchSubFolders = False
.Filename = "kol_vo.dbf"
.MatchTextExactly = False
.FileType = msoFileTypeAllFiles
End With
Workbooks.Open Filename:="c:\db\" + mas_(ik) + "\kol_vo.dbf"
Workbooks("kol_vo.dbf").Activate
Worksheets( 1 ).Cells( 1 ,  1 ).Activate
iLastCell = Cells( 1 ,  1 ).SpecialCells(xlLastCell).Row
Set iSource = Range(Cells( 2 ,  21 ), Cells(iLastCell,  21 ))
For Each Cell In iSource
iCount = Application.WorksheetFunction.CountIf(iSource, "<>Ok")
Workbooks("kol_vo.dbf").Close
Windows("Count.xls").Activate
Sheets("Count_Ord").Select
For ir =  3  To  16 
Cells(ir,  21 ).Value = iCount
Next ir
Next iSource
Next ik

End Sub