Alterar Célula Automaticamente sem botão

‘Este código deve ser inserido na plan1, não em módulos

‘Este código abaixo altera o conteúdo automaticamente da célula sem necessidade de ter um botão
‘Após inserir o número na célula A1 , irá exibir automaticamente na célula B1 o valor da célula A1 somando ele mesmo e dividindo por 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = “$A$1” Then
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value / 2
End If
End Sub

‘Agora basta usar sua criatividade e usar este recurso do jeito que mais lhe agrada