自已找到答案了，自問自答…將下列程式碼貼到按鈕中就可以了
Sub InsertRow()
Dim rRow As Long
rRow = Selection.Row
ActiveSheet.Rows(rRow).Insert