Excel Macro to find unique distinct value based on Criteria

hi

I am currently using following macro which I found from forum (thanks), however now I would like to collect information if column B value is equal to "Europe"

Data  ,  Column B
GER,     Europe
IRQ,      Mideast
JPN,      Fareast
FRA,      Europe

Answer should be in Dropdown list

Please help me

_____
data column C

Sub Select_ABC()
'
' Select_ABC Macro
' Update Dorp Down list with ABC's in the Data Sheet
'

'
''

     Dim cbList
     Dim i As Long
     Dim j As Long
     Dim Temp As Variant
     
     Application.ScreenUpdating = False
     With Sheets("Data")
          cbList = Sheets("Data").Range("allTRANSlst") ', .Range("a" & Rows.Count).End(xlUp))
     End With
     Sheets("Summary").Activate
With Sheets("Summary").ComboBox1
     .List = UNIQUE(cbList)
     For i = 0 To .ListCount - 2
        For j = i + 1 To .ListCount - 1
            If UCase(.List(i)) > UCase(.List(j)) Then
                Temp = .List(j)
                .List(j) = .List(i)
                .List(i) = Temp
            End If
        Next j
    Next i
End With
     Application.ScreenUpdating = True
End Sub


Function UNIQUE(v As Variant)
Dim i
     With CreateObject("scripting.dictionary")
          .comparemode = 1
     For Each i In v
          If Not .exists(i) Then .Add i, Nothing
     Next
          If .Count > 0 Then UNIQUE = .keys
     End With
End Function