Оптимизация кода переноса данных между таблицами - VB

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

Есть два xls файла. В каждом (как ни странно) есть таблица. Первый файл - это прайс-лист вида:
[номер товара] - [цена]
Второй файл - факт наличия вида:
[номер товара] - [остаток]
Задача простейшая: во второй файл переместить свежие цены. Эта задача решена и работает. Всё было хорошо, пока менеджеры не вошли во вкус и не стали гонять прайсы по 8000-10000 наименований.
Сейчас скрипт берет номер товара из файла-остатков, ищет полным перебором совпадение номера в файле-прайсе и при совпадении переносит цену.
Посовейтуйте что-нибудь. А то у меня мысли уже остановились...
Требуется оптимизация скрипта:

svedenie()
     fi_so, fi_dis  
     k  

    fi_so = Range().Value 
    le_so = Range().Value 
    le_id_so = Range().Value 
    
    fi_dis = Range().Value 
    le_dis = Range().Value 
    le_id_dis = Range().Value 
    
    fi_so = Format(fi_so) + 
    fi_dis = Format(fi_dis) + 
    
    src_last_row = Windows(fi_so).ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    dst_last_row = Windows(fi_dis).ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    
    Windows(fi_dis).Activate
    
     m =   dst_last_row
        kod = le_id_dis + Format(m)
        dst_id = Range(kod).Value
        kod_dst = le_dis + Format(m)
        
         n =   src_last_row
            kod = le_id_so + Format(n)
            src_id = Windows(fi_so).ActiveSheet.Range(kod).Value
            
             src_id >   src_id = dst_id 
                kod_src = le_so + Format(n)
                Range(kod_dst).
                Range(kod_dst).Value = Windows(fi_so).ActiveSheet.Range(kod_src).Value

                k = m  
                 k =  
                    Range(kod_dst).

         n
     m

Решение задачи: «Оптимизация кода переноса данных между таблицами»

textual
                            Листинг программы 
                        
                            <font color="blue">SELECT</font> CInt(F1) <font color="blue">AS</font> NEWVAL