Sumar Celda Activa mas anterior Celda

[Gaspatin]

Hola a todos:

Tengo lo siguiente en el libro de VBA:

[DBOX]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, Range("B4:H14,B6:H6")) Is Nothing Then

ActiveCell.Value = ActiveCell.Offset(0, -1).Value + ActiveCell.Value

End If

End Sub

[/DBOX]

Lo que quiero es que al introducir un dato en cualquiera de esas celdas me sume ese valor con el dato y me deje ese dato en la misma celda. Lo he intentado de otras maneras pero me genera una especie de bucle y no he podido solucionarlo, y las que les describo me datos diferentes. Si de favor pueden ayudarme. Gracias.

[ioyama]

Hola Gaspatin

Revisa el adjunto. Lo preparé hace unos meses para otro compañero. Tendrás que ajustarlo a tu rango de trabajo.

Un saludo desde Vitoria

SumarEnLaMismaCelda_io_111031.zip

[Gaspatin]

Buenas noches Ioyama:

Me quede :-O, la verdad andaba muy perdido. Te agradezco el apoyo y que comparatas tus conocimientos, solo lo voy a adaptar a mi hoja de trabajo. gracias nuevamente y éxito en tus activadades (gl)