dt = InputBox("Введите дату в формате дд.мм.гггг", "Ввод даты", Format(Date, "dd.mm.yyyy"))

Dim rsgs_gprs As ADODB.Recordset:         Set rsgs_gprs = New ADODB.Recordset
Set rsgs_gprs.ActiveConnection = con

Sql = " select"
Sql = Sql & " c.msisdn, s.navi_date, ss.def, s.end_date"
Sql = Sql & " from subs_packs s, client_balance c, serv_histories sh, serv_statuses ss"
Sql = Sql & " where s.pack_pack_id in (789,855)"
Sql = Sql & " and s.navi_date > to_date('" & dt & "', 'dd.mm.yyyy')"
Sql = Sql & " and s.navi_user = 'SYS'"
Sql = Sql & " and sh.srst_srst_id = ss.srst_id"
Sql = Sql & " and s.subs_subs_id = c.subs_subs_id"
Sql = Sql & " and sh.subs_subs_id = c.subs_subs_id"
Sql = Sql & " and sh.srls_srls_id = " 1020 "
Sql = Sql & " and sh.end_date > sysdate"
Sql = Sql & " order by s.end_date"

rsgs_gprs.Open Sql, con
Sheets("Лист1").Select

Dim i As Long

For i = 3 To ActiveSheet.Rows.Count

If Cells(i, 2).Value = "" Then
         
'Cells(1, 2).Value = "За период с " + dt_start + " по " + dt_end

Range(Cells( 3 ,  2 ), Cells(i,  5 )).Select
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .ReadingOrder = xlContext
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .ReadingOrder = xlContext
    End With

Cells(i,  2 ).CopyFromRecordset rsgs_gprs

rsgs_gprs.Close

Exit For
End If
Next i