PO = ActiveCell.Value
ActiveCell.Offset(0, -5).Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(PO,""/"",RC[-1])"
Dim PO As Range
Set PO = ActiveCell
ActiveCell.Offset(0, -5).Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(" & PO.Address(ReferenceStyle:=xlR1C1) & ",""/"",RC[-1])"
Try below:
Open in new window
If you can provide me the exact cells, I can write a code, then you don't need to use ActiveCell