Dim MyArr As Variant ' Объявляю массив
...
MyArr = RS.GetRows ' Наполняю массив данными из Рекордсет
...
MyArr(0, i) 'Использую одну колонку двумерного массива - а проще ведь, что бы он сразу был одномерный:)

'Массив  FirstArr() определяется выше по коду и содержит 100 элементов

 Sub UnikArr()
 
    Dim MyData As Range: Set MyData = Range([A1], Range("A" & Rows.Count).End(xlUp))
    Dim ArrRng() As Variant

    ArrRng = UniqueValuesFromArray(MyData.Value, 1) 'Тут нужен цикл For и вместо MyData.Value, 1 подставить FirstArr(0, i)

    Range("B1").Resize(UBound(ArrRng)).Value = ArrRng


End Sub

Function UniqueValuesFromArray(ByVal ArrTmp, ByVal col As Long) As Variant
Dim i As Long


    If Not IsArray(ArrTmp) Then MsgBox "Это не массив!", vbCritical: Exit Function
    If col > UBound(ArrTmp, 2) Then MsgBox "Нет такого столбца в массиве!", vbCritical: Exit Function
    If col < LBound(ArrTmp, 2) Then MsgBox "Нет такого столбца в массиве!", vbCritical: Exit Function

    On Error Resume Next: Dim coll As New Collection, txt$
    
    For i = LBound(ArrTmp) To UBound(ArrTmp)
        txt$ = Trim(ArrTmp(i, col)): coll.Add txt$, txt$
    Next i
    ReDim MyArr(1 To coll.Count, 1 To 1)
    For i = 1 To coll.Count: MyArr(i, 1) = coll(i): Next i
    UniqueValuesFromArray = MyArr
End Function

    RE.Global = True 'Все что найдется в строке, не только первое соответствие
    RE.IgnoreCase = False
    RE.Pattern = "  " 'Найти двойной пробел

    For i = 0 To 100
        Set MyStr = .Replace(varArr(0, i), "") 'Заменить двойной пробел на Ничто 
        varArr(0, i) = MyStr 'Перезаписать строку в массиве
    Next i