This code should do the trick but you should only run it once or there will be multiple pp's inserted.
I assumed that you wanted the Salespersons name left in and I put the sheet name before with a space. Modify the code for your needs.
Dim shtName As Variant
shtName = ActiveSheet.Name
For Each cell In Selection
cell.Value = shtName & " " & cell.Value
Edit: Did not open attatchment, and did not realise you wanted a new col inserted. What I have given you will place pp in the same cell as Salesperson NOT in a cell on its own :smash: