Народ подскажите макрос который бы из одной таблицы по id вписывал содержимое в другую?!

Dim n%
Dim rw As Double
Dim wbk1, wbk2
Dim mas_reg(10000) ' чтобы не переопределять массив(если количество id увеличится) сделаем его сразу большим
 
wbk1 = "eso_obl1.xls"
wbk2 = "eso_eso.xls"
 
For n = 2 To Workbooks(wbk1).Sheets(1).Cells(1, 1).CurrentRegion.Rows.Count
mas_reg(Workbooks(wbk1).Sheets(1).Cells(n, 1).Value) = Workbooks(wbk1).Sheets(1).Cells(n, 2).Value
Next
 
'для проверки вставим пустую колонку и введем данные в нее, хотя можно заменить и в текущей
 
Workbooks(wbk2).Sheets(1).Columns(6).Insert
For rw = 2 To Workbooks(wbk2).Sheets(1).Cells(1, 1).CurrentRegion.Rows.Count
Workbooks(wbk2).Sheets(1).Cells(rw, 6).Value = mas_reg(Workbooks(wbk2).Sheets(1).Cells(rw, 5).Value )
Next
 
End Sub

Set wbk1 = Workbooks("eso_obl1.xls").Sheets(1)
wbk1.Cells(1, 1)

Sub massiv_region() 
 
Dim n%
Dim rw As Double
Dim wbk1, wbk2
Dim mas_reg(10000)
 
wbk1 = "eso_obl1.xls"
wbk2 = "eso_eso.xls"
 
mas_reg(0) = ""
For n = 2 To Workbooks(wbk1).Sheets(1).Cells(1, 1).CurrentRegion.Rows.Count
mas_reg(Val(Workbooks(wbk1).Sheets(1).Cells(n, 1).Value)) = Workbooks(wbk1).Sheets(1).Cells(n, 2).Value
Next
'для проверки вставлен столбец, но можно и заменить значения в столбце 5
 
Workbooks(wbk2).Sheets(1).Columns(6).Insert
For rw = 2 To Workbooks(wbk2).Sheets(1).Cells(1, 1).CurrentRegion.Rows.Count
Workbooks(wbk2).Sheets(1).Cells(rw, 6).Value = mas_reg(Val(Workbooks(wbk2).Sheets(1).Cells(rw, 5).Value))
Next
End Sub