Office: Brauche hilfe bei Schaltflächenmakros, PLZ

Hallo,
ich versuche bei Excel ein möglichst realistisches Modell einer Aldi-Registrierkasse (NICHT die Scanner-Kasse) mit Schaltflächenmakros zu erstellen (Arbeite auch mit Verweisen). Dabei habe ich aber noch ein großes Problem, auf das ich hier hoffentlich eine Antwort finde:
Ich möchte gerne ein Tippfeld (Zahlen 0-9 usw.) aus Schaltflächenmakros erstellen. Mein momentaner Makro-code sieht so aus:
Range("B3") = Range("B3") & "1"
wie muss ich den Code ändern, damit er nicht in "B3" hineinschreibt, sondern in die gerade aktive Zelle, und dann auch nur das was gereade IN DER AKTIVEN ZELLE STEHT, und die "1". Denn wenn ich den Code umstelle auf:
Range("ActiveCell") =Range("B3") & "1"
schreibt er, wenn ich z.B. Zelle B4 anklicke, und dann das makro ausführe das was gerade in Zelle B3 steht und die 1. Bedeutet Also wenn ich in Zelle B3 die Artikelnummer hinenschreibe (Z.B. 13), dann B4 selektiere(da möchte ich die Artikelanzahl eintragen) und z.B. das Makro "4" aktiviere erscheint "134"... ich möchte aber dass da nur die "4" erscheint. Wie geht das?

Sollte jemand gerne die Excel Datei haben wollen, um mir besser helfen zu können, mailt mir:
Tobiaskuemmel@web.de, ich schicke sie dann so schnell wie möglich zu.

Danke für die Hilfe schon mal im Voraus

 

hab dir ne mail geschickt. schick mir die datei mal

 

Mit folgendem Code für die Schaltflächen sollte es funktionieren:

Code:

ActiveCell = ActiveCell & "1"
ActiveCell.Select