Running Totals In A Single Cell- Macro

I have been trying to find a macro that would allow me to keep a running total in a cell by adding a number to that cell and the same cell would display the sum of the numbers entered. {i.e.} If cell a1 has 0 in it and i click on that cell and put 3 in it would display 3 if i added 2 to it it would display 5 and so on. I need it to do this for about 182 cells on one page.I found this macro that runs automatically every time and works great......But only for one cell so far..."D3"...Ugh!!! I need this macro to work for the following range of cells "colums d thru j from row 3 down to 28 in each colum. Each cell is an individual. There are 182 cells total that each need this macro to work ...all on one page



Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Static dAccumulator As Double
With Target
If .Address(False, False) = "D3" Then
If Not IsEmpty(.Value) And IsNumeric(.Value) Then
dAccumulator = dAccumulator + .Value
Else
dAccumulator = 0
End If
Application.EnableEvents = False
.Value = dAccumulator
Application.EnableEvents = True
End If
End With
End Sub

As you see the macro includes cell D3 only, I have made several attempts to include more cells but have failed.... I tried like this



If .Address(False, False) = "D3,E3,F3,G3,H3,I3,J3,D4,E4...and so on" Then

I have tried ....If .Address(False, False) = "D3:J3" Then
and I have tried ....If .Address(False, False) = "23Rx7C" Then
I can make it work for cell d3 but not the others. Will I have to repeat this code for every cell?