Make what cell that is selected be the 'active' cell

[cdb0ewm]

I have the simple code below. I would like to be able to run it from any cell in the sheet rather than just B7. I.E. run the same macro from E28 and return the result to E28
Is there an easy way to do this?

Sub Macro2()
Range("B7").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("B7").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[bbott]

Is this what you're looking for?

Sub InsertNow()

    ActiveCell.Value = Now
    
End Sub

 

[Roderick_E]

Is this what you're looking for?

Sub InsertNow()

    ActiveCell.Value = Now
    
End Sub

Or....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Value = Now
End Sub

But it's kind of silly since it would simply put the current date and time in cell selected

 

[bbott]

Another thought....if you just want today's date and don't need the time, you can just select a cell and press CTRL+;

 

[cdb0ewm]

Works perfect

thank you