dynamic column reference, copy formula down

amend the last part to

    With Sheets("Sheet1")
      with .Range(.cells(2, rPrCol), .cells(endRow, rPrCol))
          .FormulaR1C1 = "=ROUND(RC[-6],2)"
          .value = .value
          .entirecolumn.autofit
      end with
end with

as long as the formula should always look 6 columns to the left

thats the thing, the 'Price2' header can be on any column (thats why i have this bit... Find("Price2", LookAt:=xlWhole).Column) and the dataset will have more columns from time to time, so that the 'Price2' header can more than 6 columns from column C where the origianl 'Price' column is located.