Dim j As Integer
    For j =  15  To  32 
        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 '" + Cells( 3 ,  1 ).Text + "'"
            Sql = Sql & " and d.delr_id = " + d + ""
            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 '" + Cells( 3 ,  1 ).Text + "'"
            Sql = Sql & " and d.delr_id = " + d + ""
            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
    
Dim rs2 As ADODB.Recordset
Set rs2 = New ADODB.Recordset
Set rs2.ActiveConnection = con
    Sql = " select"
    Sql = Sql & " count(t.subs_id),"
    Sql = Sql & " sum(t.vozn_30),"
    Sql = Sql & " sum(t.vozn_40),"
    Sql = Sql & " sum(case when t.vozn_50 >= 13/" + kd + " then 13/" + kd + " else t.vozn_50 end)"
    Sql = Sql & " from ro.dealer_vozn_2 t"
    Sql = Sql & " where t.delr_id = " + d + ""
    Sql = Sql & " and t.activation_date >= to_date('" + Cells( 1 ,  1 ).Text + "', 'dd.mm.yyyy')"
    Sql = Sql & " and t.activation_date < to_date('" + Cells( 2 ,  1 ).Text + "', 'dd.mm.yyyy')+1"
    
rs2.Open Sql, con
Cells( 44 ,  4 ).Value = rs2.Fields( 0 ).Value
Cells( 44 ,  5 ).Value = rs2.Fields( 1 ).Value
Cells( 44 ,  6 ).Value = rs2.Fields( 2 ).Value
Cells( 44 ,  7 ).Value = rs2.Fields( 3 ).Value
'Cells(34, 7).CopyFromRecordset rs1

If Cells( 44 ,  5 ).Value = "" Then
   Cells( 44 ,  5 ).Value = "0"
End If

If Cells( 44 ,  6 ).Value = "" Then
   Cells( 44 ,  6 ).Value = "0"
End If

If Cells( 44 ,  7 ).Value = "" Then
   Cells( 44 ,  7 ).Value = "0"
End If