Cell C14: =VLOOKUP($C$13,'Address Book'!A:C,ROWS($C$13:$C14),FALSE)

and copy down.

In code:

Range("C14:C15").FormulaR1C1 = _
    "=VLOOKUP(R13C3,'Address Book'!C[-2]:C,ROWS(R13C3:RC3),FALSE)"


Regards