Sumar valor en misma celda

Activa el editor VBA (botón derecho del mouse sobre la etiqueta de la hoja, y en el evento Change de la hoja escribe algo como
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = Target.Value + 25
Application.EnableEvents = True
End Sub
Lo anterior te modificará cualquier celda de la hoja; si quisieras que sea alguna celda en particular, deberías modificarlo ligeramente con
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Target = Target.Value + 25
Application.EnableEvents = True
End If
End Sub
O algo parecido

Esta me podría valer
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Target = Target.Value + 25
Application.EnableEvents = True
End If
End Sub
Pero tendria que ser en toda la columna "a"
he probado asi pero no me funciona.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A:$A" Then
Application.EnableEvents = False
Target = Target.Value + 25
Application.EnableEvents = True
End If
End Sub
Como puedo hacerlo

Por lo que veo, quieres sumar siempre que sea la columna A; si este es el caso, podrías poner algo como
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Target = Target.Value + 25
Application.EnableEvents = True
End If
End Sub

Exacto, funciona muy bien.
Pero en la segunda hoja del proyecto lo tengo que hacer en la columna 1 y en la 2.
Como hago referencia aquí a las 2 columnas:
"If Target.Column = 1 Then "
Gracias
Fernand--

Bueno lo solucione así:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Target = Target.Value + 25
Application.EnableEvents = True
End If
If Target.Column = 2 Then
Application.EnableEvents = False
Target = Target.Value + 25
Application.EnableEvents = True
End If
End Sub
Lo único que me queda es que pueda poner en una celda el valor a sumar "25".
Es decir:
Target = Target.Value + 25 <---este valor que este por ejemplo en "d2"
Muchísimas gracias