Wisselende waarden in kolom optellen

Een vereniging houdt restaurantdagen en wil de gegevens opslaan en bijhouden. Ik wil een excel maken met de klassieke kassagegevens (wat hebben de mensen verbruikt en hoeveel kost dat). Maar ik wil ook het totaal aantal van elk verbruikt item bijhouden. Een voorbeeld: in kolom A komt het aantal pintjes dat iemand verbruikte. In B staat de eenheidsprijs en in C dus A*B. Niks moeilijk. Bij de volgende klant wordt alles weer op 0 gezet. Maar het getal in de A-kolom wil ik bijhouden en optellen bij het getal van de volgende klant, enz, enz. Ik heb er geen formule voor gevonden, dus het zal een macro worden zodat een klik op een knop de opeenvolgende stappen uitvoert. Ik ben geen wiskundig genie, maar m.i. zal het iets moeten zijn als 'de waarden in A kopieren (speciaal) naar bv. D, en daar telkens bijtellen wat in A komt. Dat klinkt simpel, maar het lukt me niet (de kolommen die alleen maar nodig zijn voor de berekening kan ik uiteraard verbergen, zodat degene aan de kassa alleen maar het nodige ziet).
Voor alle duidelijkheid: ik ben niet alleen geen wiskundig genie, ik ben ook geen excel-specialist. Ik kan met het programma uit de voeten, maar waarschijnlijk weet ik er meer niet van dan wel. Gelukkig is er Google, maar in deze helpt het me niet.

Bv.

Bedankt voor zo'n snelle reactie...maar ik zei al dat ik geen excel-specialist ben. Ik veronderstel dat dit de macro-code is, maar waar plaats ik die, want ik maak macro's door een aantal handelingen 'op te nemen' en het resultaat dan toe te kennen aan een (klik-)knop. In dit geval gebruik ik dan de macro om 1. de optelling A+D te maken, 2. alle resultaten op te slaan, en 3. alles weer op 0 te zetten voor de volgende klant.

Het bestandje plaatsen wil ook wel eens helpen.

Ik heb het uitgeprobeerd en het werkt perfect. Fantastisch! Ik breek daar al dagen mijn hoofd over.
Maar hoe doe ik dit werken op meer dan één cel tegelijk?
En ik had het bestandje inderdaad moeten posten. Dus hier is 't:

Sub telling_in_D1()
Range("D1") = Range("D1") + Range("A1").Value
End Sub

Da's dan blijkbaar niet gelukt. Je hebt een kopie van de code van HSV geplaatst en bent vergeten deze tussen codetags te plaatsen.

"Da's dan blijkbaar niet gelukt. Je hebt een kopie van de code van HSV geplaatst en bent vergeten deze tussen codetags te plaatsen."
Ik zal wel overkomen als een enorme domoor, maar dit begrijp ik niet. Maar daarom ook zit ik op dit forum: ik wil de diepere geheimen van excel leren kennen.
De code:
Sub telling_in_D1()
Range("D1") = Range("D1") + Range("A1").Value
End Sub
werkt, maar ik wil ze met één knop toepassen op meerdere cellen tegelijk. Het gaat om cellen in twee kolommen.

Kijk maar eens bij de link voor uitleg over Codetags.
http://www.helpmij.nl/forum/showthread.php/870315-Handleiding-Code-tags-gebruiken-Manual-Code-tags-usage?p=5595087#post5595087

Dan voeg je nog zo'n regel als onderstaande toe met de juiste celbenamingen.

Dank u! Ik heb meteen een heleboel bijgeleerd over macro's.