Cargar ComboBox con cierto criterio de una tabla

[Osiany]

Hola muy buenos días, por favor me podrían apoyar de como CARGAR un listado a un COMBOBOX, la condicional es la siguiente:  Si la columna B tiene X dato, que se cargue lo que tengo en la columna A, Gracias de antemano por tu apoyo!

[Antoni]

Sub CargarListado()
For x = 1 To Range("A" & Rows.Count).End(xlUp).Row
   If Range("B" & x) = "Dato" Then ListBox1.AddItem Range("A" & x)
Next
End Sub

 

[Osiany]

Muchisimas gracias Antoni, formidable, eso es lo que andaba buscando! te agradezco. Saludos