Заполнение таблицы Copy/Paste

Sub Перенос()
Dim OutTable As ADODB.Recordset
 
Dim ex As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim obj As Excel.Range
Dim ExTabl(2) As Variant
 
ExTabl(1) = "1"
ExTabl(2) = "2"
 
Dim ExTablList(12) As Variant
 
ExTablList(1) = "январь"
ExTablList(2) = "февраль"
ExTablList(3) = "март"
ExTablList(4) = "апрель"
ExTablList(5) = "май"
ExTablList(6) = "июнь"
ExTablList(7) = "июль"
ExTablList(8) = "август"
ExTablList(9) = "сентябрь"
ExTablList(10) = "октябрь"
ExTablList(11) = "ноябрь"
ExTablList(12) = "декабрь"
Dim i, j As Integer
Dim NameList, NameBook As Variant
 
 
Set OutTable = New ADODB.Recordset
OutTable.ActiveConnection = CurrentProject.Connection
OutTable.Open "название_таблицы", , adOpenDynamic, adLockOptimistic
 
Set ex = New Excel.Application
For i = 1 To 2
    NameBook = ExTabl(i)
    Set wb = ex.Workbooks.Open("C:\Documents and Settings\...\My Documents\название папки с эксель файлами\" & NameBook & ".xls")
       For j = 1 To 12
        NameList = ExTablList(j)
        Set ws = wb.Sheets(NameList)
        OutTable.AddNew
        
        OutTable.Fields("Отдел") = NameBook
        OutTable.Fields("Месяц") = NameList
        OutTable.Fields("название поля в таблице Акцесс") = Nz(ws.Range("наименование ячейки в эксель"), 0)
        .записываем перенос из ячеек в поля таблицы Акцесс
        .
    OutTable.Update
    Next j
    
Next i
OutTable.Close
Set OutTable = Nothing
 
Set ws = Nothing
wb.Close
Set wb = Nothing
Set ex = Nothing
MsgBox ("Все записи скопированы")
End Sub