Как удалить повторяющиеся элементы динамического массива?

 ReDim intArr(intcount_cell) 'Меняем размер массива
  For int_i = 1 To intcount_cell
   intArr(int_i) = Cells(int_i, 1).Value 'Заполняем массив данными из ячеек на 2 листе
  Next int_i

j=1:   redim marr(1 to  j):  marr(j)=cells([номер последнего ряда], "A")
for i = a to b step -1
   if cells(i-1, "A").value <> cells(i, "A").value then
      j=j+1:   Redim Preserve mARR(1 to j)
      mARR(j)=cells(i-1, "A").value
   enf if
next 'i

Sub aqaqaq()
Dim i&, j&, r&, mARR()
   mARR = Range([a1], Cells(Rows.Count, 1).End(xlUp)).Value
   Columns("c").ClearContents:   r = UBound(mARR, 1)
   Cells(1, "C").Resize(r, UBound(mARR, 2)).Value = mARR
   Erase mARR 
      With Range("c1:c" & Cells(Rows.Count, "c").End(xlUp).Row)
         .Sort .Cells(1), xlAscending, Header:=xlNo
            For i = 1 To r
               If .Cells(i + 1).Value <> .Cells(i).Value Then
                  j = j + 1: ReDim Preserve mARR(1 To j): mARR(j) = .Cells(i + 1).Value
               End If
            Next
         .ClearContents:  .Cells(1).Resize(UBound(mARR, 1)).Value = _
                                                    Application.Transpose(mARR)
      End With
   Erase mARR:   MsgBox Space(10) & "D O N E!"
End Sub

Sub deleteDUBL()
Dim i&, j&, r&, mARR(), tmpARR(), counter&
   mARR = Range([a1], Cells(Rows.Count, 1).End(xlUp)).Value
   Application.ScreenUpdating = False
   Columns("c").ClearContents
   Cells(1, "C").Resize(UBound(mARR, 1), UBound(mARR, 2)).Value = mARR
   For i = LBound(mARR, 1) To UBound(mARR, 1)
      counter = 0
      For j = Cells(Rows.Count, "c").End(xlUp).Row To 1 Step -1
         If Cells(j, "c").Value = mARR(i, 1) Then
            counter = counter + 1
               If counter > 1 Then Cells(j, "c").Delete Shift:=xlUp
         End If
      Next 'j
   Next 'i
   Application.ScreenUpdating = True
   Erase mARR:   MsgBox Space(10) & "D O N E!"
End Sub

Function getUniq(A() As Integer) As Integer()
Dim R() As Integer
    n& = UBound(A, 1)
    ReDim R(1 To n&) As Integer
    o& = 0
    For i& = 1 To n&
        X% = A(i&)
        q% = 0
        For j& = 1 To o&
            If R(j&) = X% Then
               q% = -1
               Exit For
            End If
        Next j&
        If q% = 0 Then
           o& = o& + 1
           R(o&) = X%
        End If
    Next i&
    ReDim Preserve R(1 To o&) As Integer
    getUniq = R
End Function
 
Sub Test2()
Dim X(1 To 100) As Integer
Dim R()         As Integer
    Randomize
    For i% = 1 To 100
        X(i%) = 10 * Rnd
    Next i%
    R = getUniq(X)
    For i% = 1 To UBound(R, 1)
        Debug.Print R(i%)
    Next i%
End Sub