Excel: Rank if with sumproduct (and VBA)

Look here: http://www.mrexcel.com/forum/excel-questions/82479-rank-if-2.html
 eg.
=SUMPRODUCT(--(A$3:A$11=A3)*(B3<B$3:B$11))+1

Big thanks. Helped me a lot today.