VBA Build Array of Unique Values from Range based on Criteria in Adjacent Column

Hi there,

Working on a project and need a bit of help. I need to be able to build an array ("UniqueArray"), which can store all of the unique volumes from a range ("CompanyColumn"), where the corresponding value in an adjacent range ("OriginColumn") is equal to a string ("OriginString").

My table will typically be layed out as follows, but not always which is why I included the desired variable names. This will be part of a UDF where the user will specify the CompanyColumn, OriginColumn, and OriginString.
[TABLE="width: 500"]

[tr]

[td]

ORIGIN COLUMN

[/td]

[td]

COMPANY COLUMN

[/td]

[/tr]

[tr]

[td]

A

[/td]

[td]

1

[/td]

[/tr]

[tr]

[td]

A

[/td]

[td]

2

[/td]

[/tr]

[tr]

[td]

A

[/td]

[td]

2

[/td]

[/tr]

[/TABLE]

So basically if my criteria is "A", then I need to populate the "UniqueArray" with all of the unique values from the "CompanyColumn" where the value in "OriginColumn" is equal to "A", so in this instance the array would have 2 values stores in it (1 and 2).

Any help would be much appreciated.

Thanks!