For i =  8  To  31 
    
    Cells( 7 , st).Value = dt
    
    Dim rs_total As ADODB.Recordset:    Set rs_total = New ADODB.Recordset
    Set rs_total.ActiveConnection = con
    
    If i =  10  Then i = i +  1 
            '--- эфект red ---
            Cells(i, st).Select
            With Selection.Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .Color =  255 
                    .TintAndShade =  0 
                    .PatternTintAndShade =  0 
                End With
                
            'Выборка
            Sql = " select"
            Sql = Sql & " t.trafik_dohod"
            Sql = Sql & " from everyday_report t"
            Sql = Sql & " where t.datereg = '" + dt + "'"
            Sql = Sql & " and t.type_id = 1"
            Sql = Sql & " and t.name_id = '" + Cells(i,  1 ).Text + "'"
            
            Cells( 8 , i).Interior.Color = RGB( 194 ,  214 ,  154 ) '--ОКРАШИВАНИЕ
                      
            'Заполение ячеек
            rs_total.Open Sql, con
            Cells(i, st).Value = ""
            Cells(i, st).CopyFromRecordset rs_total
            
            'k = k + 1
            
            '--- эфект null ---
            Cells(i, st).Select
                With Selection.Interior
                    .Pattern = xlNone
                    .TintAndShade =  0 
                    .PatternTintAndShade =  0 
                End With
                
            'Ищем пустые ячейки и меняем на 0 для вычислений в Листе
            'If Cells(i, 3).Value = "" Then
            'Cells(i, 3).Value = "0"
            'End If
                        
    Next i
    i =  0 
    rs_total.Close