Take the value of the selected cell and multiply it by 1.5923566 and enter it..

I have a report which I receive daily where some values need to be manually adjusted by 1.5923566.

What I would like to do is hit the cell with the value in it and then hit a button with a macro that will multiply the value in the cell by 1.5923566 and then replace the original value with the new value.

Is there a way of doing this simply please ?

I've tried to write a routine but it doesn't work. Here's what I've done so far...

Sub UpdateUSDollars()

ActiveCell = *1.5923566
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Any help received would be much appreciated.