How to Extend the Formula with Iferror Vlook

[sg2209]

Hi Friends,

i am new to VBA, need to help with the code i am already using it ,

Need to add formula


In Priced Accessions if Cell P2 = 0 then K2*50%

I am using Iferror and Vlook up in the below code, now i also need to ammend where the result came o it will be multiplied by Corresponding Column P *50%, Kindly review

With Sheets("Priced Accessions")
lLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
With .Range("P2:P" & lLastRow)
.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-7],'Aetna Calculations'!C1:C4,4,0),""Na"")"
.Value = .Value
End With
End With

 

[sg2209]

i have resolved it myself... thank you who have seen this