Editing a cell with specific arguments

[kashatxx]

Hello,

I searched and couldn't find what I needed.
Everything is either too broad or doesn't apply to my case.

I need a macro that will change the contents of a selected cell in the following manner:

given a cell that contains a price of $500 (if it matters, prices vary from 2 digits to 6 digits).

I need a macro that will add "=" at the start and "/2" at the end (always divide by 2).
The final result should look like this: =500/2.

manually it means the following set of actions:
selecting the cell
pressing F2 to start editing
pressing "Home"
pressing "="
pressing "End"
pressing "/2"
and finally pressing "Enter"

Is there a quick macro code that does that?

Thank you!

 

[JEC]

For example: (works for range A1:A20)

Sub jecc()
 Range("A1:A20").Name = "a"
 [a] = [if(a,a/2,"")]
End Sub

or

Sub jec()
 For Each it In Range("A1:A20")
    If it Then it.Value = it.Value / 2
 Next
End Sub

 

[kashatxx]

For example: (works for range A1:A20)

Sub jecc()
 Range("A1:A20").Name = "a"
 [a] = [if(a,a/2,"")]
End Sub

or

Sub jec()
 For Each it In Range("A1:A20")
    If it Then it.Value = it.Value / 2
 Next
End Sub

Thanks for the response @JEC !

Almost there, but I really need to add the "/2" in the cell.
I need it for tracking and visibility.

So say cell A2 shows $500
I need it to show "=500/2".

 

[kashatxx]

*Can't find a way to edit my previous response, so posting a reply instead*

The cell on which this macro will be used changes all the time.
So it can't be a range or a specific cell.
It needs to be the active cell at the time.