Table content to ComboBox

[Roschel]

Hi,

I have a table with many names in the first column, including repeated names.
I would like to create a combobox and additens with the names of this column, excluding the repeated ones.

Just like the image below:

Is there a method in vba with listobjects (Table) to do that?

 

[Yongle]

The code below correctly populates with
Canada
England
France
Spain
Portugal
Germany
Italy

Excel 2016 (Windows) 32 bit

	A​	B​	C​
1​		Country
2​		Canada
3​		England
4​		France
5​		Canada
6​		England
7​		France
8​		Canada
9​		England
10​		France
11​		Canada
12​		England
13​		France
14​		Spain
15​		Portugal
16​		Germany
17​		Italy
18​

Sheet: Sheet X

ComboBox1 on " Sheet X" is populated with unique items from table column 1 (NOT column A)
(to refer to table by name : Sheets("Sheet X").ListObjects("CountryList").ListColumns(1).DataBodyRange )

Private Sub ComboBox1_GotFocus()
    Dim Rng As Range: Set Rng = Sheets("Sheet X").ListObjects(1).ListColumns([COLOR=#ff0000]1[/COLOR]).DataBodyRange
    Call PopulateCombo(ComboBox1, Rng)
End Sub

Sub PopulateCombo(combo As Object, aRange As Range)
    Dim Uneek As New Collection, Cel As Range, T As String
    combo.Clear
    For Each Cel In aRange
        T = Cel.Text
        On Error Resume Next
        If T <> "" Then Uneek.Add T, T
        If Not Err.Number > 0 Then combo.AddItem T
        On Error GoTo 0
    Next
End Sub