Hi, reltub,

when I paste your code into a module the lines with the formulas to be inserted are highlighted.

You would need to double up the quotes there from (just the first line here):
If Range("C" & B).Value Like "*Corp" Then Range("D" & B).Formula = "=BDP(Range("C" & B).Value, ""CALLED_DT"")"
to
If Range("C" & B).Value Like "*Corp" Then Range("D" & B).Formula = "=BDP(Range(""C"" & B).Value, ""CALLED_DT"")"
Ciao,
Holger