Notebook[List[Cell[BoxData[FormBox[RowBox[List["R", "=", FractionBox[SubscriptBox["\[Rho]", "calculated"], "\[Rho]"]]], TraditionalForm]], "Input"]]]