Выгрузка с форматированием: задать диапазон выгружаемых данных - VB

Формулировка задачи:

Ребят столкнулся с проблемой! Нужна ваша помощь. И так в программе, что прилагаю есть файл "Акт ТМЦ.xltx" в него необходимо выгружать данные. Данные та как бы выгружаются,

но вот незадача, значит Excel копирует данные даже за пределы таблицы

. Подскажите как решить проблему. В программе есть кнопка "Command3" по нажатию на нее происходит выгрузка. У меня 64 Bit система, ссылку на Excel замените у себя если что. Очень надо помогайте пожалуйста. Собственно код выгрузки:

Dim XL As Excel.Application
 
Set XL = New Excel.Application
XL.Visible = True
XL.Workbooks.Open App.Path & "\ГЂГЉГ’ Г’ГЊГ–.xltx"
 
    DSNName = "DRIVER=Microsoft Access Driver (*.mdb, *.accdb);DBQ=" & App.Path
    DSNName = DSNName & HomeDir & "\Database.accdb"
    conn.Open DSNName
     
    Sql = "SELECT * from Sample"
    rs.Open Sql, conn, 3, 3
 
i = 14
Do While Not rs.EOF
        XL.Parent.Range("b" & i).Select
        XL.Parent.ActiveCell.FormulaR1C1 = CStr(rs.Fields("Г”Г*Г¬ГЁГ«ГЁГї"))
        XL.Parent.Range("c" & i).Select
        XL.Parent.ActiveCell.FormulaR1C1 = CStr(rs.Fields("Г€Г¬Гї"))
        XL.Parent.Range("d" & i).Select
        XL.Parent.ActiveCell.FormulaR1C1 = CStr(rs.Fields("ГЋГІГ·ГҐГ±ГІГўГ®"))
        XL.Parent.Range("e" & i).Select
    i = i + 1
    rs.MoveNext
Loop
    Set rs = Nothing
    conn.Close

Решение задачи: «Выгрузка с форматированием: задать диапазон выгружаемых данных»

textual
                            Листинг программы 
                        
                            Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset