Dim j As Integer
    For j =  15  To  28 
        Dim rs1 As ADODB.Recordset
        Set rs1 = New ADODB.Recordset
        Set rs1.ActiveConnection = con
        If Cells(j,  2 ).Value = "1" Then
            Sql = " select"
            Sql = Sql & " d.count_peredano_do_19"
            Sql = Sql & " from irina.dealer_do_posle_19may d"
            Sql = Sql & " where d.month_period like '01.09.10'"
            Sql = Sql & " and d.delr_id = 282"
            Sql = Sql & " and d.rtpl_rtpl_id = " + Cells(j,  3 ).Text + ""
            
        End If
        If Cells(j,  2 ).Value = "2" Then
            Sql = " select"
            Sql = Sql & " d.count_peredano_posle_19"
            Sql = Sql & " from irina.dealer_do_posle_19may d"
            Sql = Sql & " where d.month_period like '01.09.10'"
            Sql = Sql & " and d.delr_id = 282"
            Sql = Sql & " and d.rtpl_rtpl_id = " + Cells(j,  3 ).Text + ""
        End If
        rs1.Open Sql, con
        Sheets("Ëèñò1").Select
        Cells(j,  5 ).Value = ""
        Cells(j,  5 ).CopyFromRecordset rs1
        If Cells(j,  5 ).Value = "" Then
            Cells(j,  5 ).Value = "0"
        End If
    Next j