Поиск уникальных значений - VB

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

Проблема такая, нужно выбрать уникальные значения с листа 2 и добавить их в лист 1. А в итоге он мне вставляет все значения листа 2.

sdf()
 i, k, m, j  
 LastRow   
 LastRow2  
 list1()  Variant
 list2()  Variant
 lFlag  

LastRow = ThisWorkbook.Sheets().Cells(Rows.Count, ).(xlUp).Row   
LastRow2 = ThisWorkbook.Sheets().Cells(Rows.Count, ).(xlUp).Row +  

 m =   LastRow - 
 Preserve list1(m)
    list1(m) = ActiveWorkbook.Worksheets().Cells(m, ).Value
 m

 k =   LastRow2 - 
 Preserve list2(k)
    list2(k) = ActiveWorkbook.Worksheets().Cells(k, ).Value
 k

 i =   UBound(list1)
  lFlag = False
   j =   UBound(list2)
     list2(j) = list1(i) 
       lFlag = True

   j
   lFlag = False 
     Preserve list2(UBound(list2) + ) 
    list2(UBound(list2)) = list1(i) 
   
 i

 i =   UBound(list2) - 
        ActiveWorkbook.Worksheets().Cells(i, ).Value = list2(i)
 i

Решение задачи: «Поиск уникальных значений»

textual
                            Листинг программы 
                        
                            <font color="blue">ReDim</font> Preserve list2(верхняя_граница_индекса)
<font color="#00AA00">' вместо</font>
<font color="blue">ReDim</font> Preserve list2(нижняя_граница_индекса <font color="blue">To</font> верхняя_граница_индекса)