Makro til at gennemløbe array og hente udvalgte oplysninger heri

Jeg har et array som jeg henter med følgende makrokode

Dim dataomraade As Variant
a = Range("A2000").End(xlUp).Row
dataomraade = Range("A11:Q" & a)

Jeg mangler en makro som skal gennemløbe array’et og hver gang den støder på en bestemt værdi i kolonne 11, f.eks. 139000, skal den fra samme række hente den numeriske værdi fra kolonne 14.

Alle forekomster af 139000 skal så kunne skrives til et nyt ark. 

Er der nogen der har et bud på hvordan det gøres?

Mangler i yderligere oplysninger skal i bare sige til