SQL запрос к Oracle из Excel по диапазону - VB

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

SQL запрос к Oracle из Excel по диапазону
Здравствуйте!
Прошу помощи! В VBA новичок.
Подскажите как дописать макрос так, чтобы он брал запросы/данные из диапазона Лист1 A1:E10 обрабатывал и вставлял полученные данные в диапазон Лист2 A1:E10.
На данный момент получилось брать сам sql запрос из Лист1 A1, далее выполнять его в Oracle и записывать его в Лист2 A1.
Но дальше продвинуться не получается.
Заранее благодарен!

Sub sbADOExample_T2()
Dim sSQLQry As String
Dim ReturnArray
Dim Conn As New ADODB.Connection
Dim mrs As New ADODB.Recordset
Dim DBPath As String, sconnect As String
Dim rnZap As Range 'range
DBPath = ThisWorkbook.FullName
sconnect = "Provider=OraOLEDB.Oracle;Data Source=****;User ID=****;Password=****;"
rnZap = Worksheets("Лист1").Range("A1")
sSQLSting = rnZap
mrs.Open sSQLSting, Conn
Лист2.Range("A1").CopyFromRecordset mrs
mrs.Close
Conn.Close
End Sub

Решение задачи: «SQL запрос к Oracle из Excel по диапазону»

textual
                            Листинг программы 
                        

                            Sub ContoOracle()

Dim cn As Object 'ADODB.Connection
Dim qSQL As String
Dim rs As Object 'ADODB.Recordset
Set cn = CreateObject("ADODB.Connection") 
Set rs = CreateObject("ADODB.Recordset") 

    cn.ConnectionString = "Provider=MSDAORA.1;Data Source=***;User ID=***;Password=***" 
    cn.Mode = adModeRead 
    cn.Open
qSQL = "select * from table1" 
rs.Open qSQL, cn
ThisWorkbook.Worksheets("1").Range("A1").CopyFromRecordset rs
rs.Close
cn.Close
Set cn = Nothing
Set rs = Nothing
End Sub

                        