Maybe:

Range("A" & Rw).Resize(1000).FormulaR1C1 = "=BPD(""security ticker"", RC1, " & Mycode & ")"