VBA alternative to Index/Match/CountaA

[Charmwah]

Hi all

I'm trying to find a way to create an alternative to a longwinded INDEX/MATCH/COUNTA formula in VBA, in the hope that the VBA simplifies the process, or at least has a more straightforward way of achieving the same end. The requirement of the formula is to lookup all entries in a database that match the chosen lookup value (from a drop down list) and then return the customer with the matching entry, with all matching entries being listed. At present the results are displayed within the worksheet in descending rows. But i'm thinking that this whole process would be just as easy to set up in a UserForm.

The database looks like the below, with the exception that the 'product group' cells are merged (so only one of each type):

	Product Group A	Product Group A	Product Group A	Product Group B	Product Group B	Product Group B	Product Group C	Product Group C	Product Group C
	Variant A1	Variant A2	Variant A3	Variant B1	Variant B2	Variant B3	Variant C1	Variant C2	Variant C3
Customer A	Yes	Yes	Yes		Yes		Yes
Customer B		Yes				Yes		Yes	Yes
Customer C					Yes		Yes
Customer D	Yes	Yes	Yes	Yes		Yes		Yes

<tbody>
</tbody>

My formula is as follows:

=IFERROR(OFFSET(OtherDB!$A$3,SMALL(IF(OFFSET(OtherDB!$A$3,1,INDEX(OtherList!$A$2:$A$161,MATCH($C$3,ProdListOther,0)),COUNTA(OtherDB!$A$4:$A$13),1)<>"",ROW(OtherDB!$A$4:$A$13),""),ROW()-ROW($F$3))-3,0),"")

'OtherDB!' is the database, 'OtherList!' is the crib list the makes the search work.

Can anybody point me in the right direction at all in terms of a workable VBA solution?

Thanks in advance!