Добавление значений столбцов в поле со списком, но как пропустить дубликаты?

Question

Мне очень нужна ваша помощь в этом, так как я считаю, что есть еще кое-что для этой загадочной проблемы. Я использую базовый цикл for, чтобы извлечь все значения моего столбца из столбца A и вставить их в поле со списком пользовательских форм (этажей).

Как можно изменить указанную ниже функцию таким образом, чтобы она добавляла только уникальные значения 1 раз, а не просто дублировала значение столбца каждый раз:

Sub tester()

    With Sheets("Office Spaces")

        lRow = Cells(Rows.Count, 1).End(xlUp).row

        For i = 3 To lRow

            If Not IsEmpty(.Cells(i, 1).Value) Then

                Me.floor.AddItem .Cells(i, 1).Value

            End If

        Next i

    End With

End Sub

Желаемый результат будет выглядеть так: