Zeilen einfügen

mit diesem Makro (von Hans´CD) wird bei Doppelklick eine Zeile mit Formeln eingefügt. Das Makro sollte aber mit CommandButton gestartet werden und dann die Abfrage zeigen: "Zeilenkennzahl eingeben!" und "wieviel Zeilen einfügen?" Nach Eingabe der Werte soll die gewünschte Zeile in gewünschter Anzahl mit allen Formeln nach unten kopiert werden.
Die Zeilenkennzahl steht in jeder Zeile in Spalte A und ist nicht identisch mit der Excel-Zeilennummer. Wenn möglich sollte die Zeilenkennzahl beim Einfügen der Zeilen auch erhöht werden.
Kann mir jemand dieses Makro verändern? Es würde mir sehr helfen.

Danke
Gerhard E.