formel --> VBA

Hallo Community,
läßt sich folgende Formellösung auch per VBA umsetzen?
Erweiterung - ohne Doppler (neopa).
Kommen identische Einträge in Spalte A mit dem Suchkriterium in Spalte B vor und diese sollen nur eimal gelistet werden, dann:
in C1:
=INDEX(A:A;VERGLEICH("x";B:B;))
in C2:
{=WENN(MAX(ISTNV(VERGLEICH(A$1:A$99;C$1:C1;))*(B$1:B$99="x"))=0;"";INDEX(A:A; MIN(WENN(ISTNV(VERGLEICH(A$1:A$99;C$1:C1;))*(B$1:B$99="x");ZEILE($1:$99))))) }
C2 runterkopieren
Quelle:
http://www.excelformeln.de/formeln.html?welcher=28
Wär super, wenn jemand eine Lösung hätte.
Vielen Dank schonmal