Pulsante per scrivere una informazione in nella cella attiva.

sub scrivi()
activecell.value = "Ciao"
End Sub

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Selection.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B3")) Is Nothing Then
        MsgBox "Ok, hai cliccato la cella, ora attivo il pulsante"   'da eliminare
        CommandButton1.Visible = True
    End If

End Sub

Private Sub CommandButton1_Click()

    'al posto della successiva riga qui si può gestire una macro di aggiornamento
    Range("B3").Value = "Aggiornato"
    CommandButton1.Visible = False
    MsgBox "Ok, ho eseguito la macro ed ora nascondo il pulsante"   'da eliminare
    
End Sub