Подсчет повторений и копирование на другой лист - VBA

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

Доброго времени суток! Нужно решить макросом такую задачу (файл-пример в приложении): Sheet1 это лист с обновляемой базой данных (экспортируется из программы и потом замещается копированием). Нужно что бы макрос сканировал базу данных (снизу вверх) и копировал значения по параметру "upt" на лист "upt", "ddf" на лист "ddf" а так же подсчитывал количество повторения кода (на листах "upt" и "ddf" должны быть только уникальные значения. ПС сканироваться база данных должна снизу, так как в базе данных новые значения сверху. А на листах "upt" и "ddf" есть столбец "комментарий" куда потом вручную прописывается комментарий. Нужно чтобы после обновления комментарий соответствовал коду. Заранее благодарен

Решение задачи: «Подсчет повторений и копирование на другой лист»

textual
                            Листинг программы 
                        
                                       Dic5(B(i, 2)) = B(i, 4) & "|" & B(i, 5) & "|"  & B(i, 6)