problem with the vlookup apply formula range

[Costa_Mukhar]

Hi, I am using the below vlookup code, but when I am applying the formula on the entire column, its applying it on the last cell as in the pic below, which I don't need!! the code I am using is below also, can anyone help please....thanks

Sub Bond_Accruals()

    With Worksheets("cost report").Range("C5:C" & Range("A" & Rows.Count).End(xlUp).Row)
            .FormulaR1C1 = "=vlookup(RC[-1],'BA'!C4:C8,5,False)"
            .FormulaR1C1 = .Value
    End With

End Sub

 

[Costa_Mukhar]

how can I insert an image?? it is not working!