Bom dia!!

Exemplo para colocar a informação na célula.

Sub Gravar_Dados()
    ActiveCell.Value = InputBox("Descrição do Orçamento", "Entrada de Dados")
End Sub

Exemplo para alterar a informação na célula.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim vInput
    Cancel = True
    vInput = Application.InputBox(prompt:="Mude o valor da célula", Type:=2)
    If vInput = "" Then
        Target = Target.Value
        Exit Sub
    End If
    ActiveCell = vInput

End Sub