Macro to copy contents of one cell into another keeping original values

[jtt2]

Anyone know how to modify this macro so that B20 shows its original value. For example, if A1=1000 and B20=500, I want to see the answer as 1,500 but if I click on the cell I want to see =1000+500?



Code:
Sub MyFormulaAdder()

Dim d As Double
d = Range("A1").Value

Range("A1").Formula = "=" & d & "+B20"

End Sub

 

[jtt2]

Yes that worked! Thanks

 

[Joe4]

You are welcome.
Glad I was able to help!