Перенос информации из Access в Excel - VBA (48818)

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

Здравствуйте. Данную тему уже поднимал. У меня перенос информации из Access в шаблон Excel происходит по этому коду, но нужно сделать так что бы в столбец, в который я переношу информацию заполнялся только до 30 строки, потом прерывался и заполнение продолжалось после 63 строки. Помогите такое осуществить

                    Листинг программы
                
 
                        
                          
                    
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sSQL As String
 
sSQL = "SELECT [Наименование] FROM [Спецификация]"
MyConn = ThisWorkbook.Path & Application.PathSeparator & "Новая БД.mdb"
 
Set cnn = New ADODB.Connection
With cnn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Open MyConn
End With
 
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseServer
rst.Open Source:=sSQL, _
ActiveConnection:=cnn, _
CursorType:=adForwardOnly, _
LockType:=adLockBatchOptimistic, _
Options:=adCmdText
 
'Range("A3:C100").Clear              'очистка прежнего диапазона кодов на листе
Range("C3").CopyFromRecordset rst 'копируем результат SQL-запроса на лист
 
rst.Close
cnn.Close
 
iFullName = "\\...\...\...\База данных\Новая БД.mdb"

в прошлой теме предлагалось добавить так, но после выполнения в Excel после шаблонной таблицы добавляются строки из пропущенного диапазона, каждый раз.

                    Листинг программы
                
Range("C29:C63").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Решение задачи: «Перенос информации из Access в Excel»

textual
                            Листинг программы 
                        
 
                        
                          
                    
i=3
if rst.eof and rst.bof then msgbox "Данных нет": Exit sub'вместо sub то где используется этот код function-например
rst.movelast: rst.movefirst
do while rst.eof
if i=30 then i=63' 30 строка будет пропущена
Cells(i,3)=rst.fields(0)
i=i+1: rst.movenext
loop