Button und Zeilen einfügen

habe das Problem, dass ich in Excel einen Button generieren
(was ja kein Problem darstellt) und mit diesem dann an einer
beliebigen Stelle im Excel-Sheet eine Zeile einfügen möchte.
Ein Teil des Codes steht schon, leider geht mir das wichtige
für die aktuelle Position des Mauszeigers in einer Zelle ab.

Danke im Voraus und weiter so in diesem Forum!!!

MfG,
Markus

Code:
Private Sub CommandButton1_Click()
.......
Selection.EntireRow.Insert
End Sub