Excel で一行挿入するマクロ

Excelで「一行挿入」は「行を選択 → Ctrl+'+'」で可能で、または「Alt + I + R」でも可能ですが、
個人的には「行を選択」したり三回メニューを選んだりするのが面倒なのでマクロにしてショートカットを(Ctrl + Shift + I)を割り当てて使っています。

例えば「３行挿入したい」ときでも Ctrl + Shift + I を三回繰り返すだけです。

Sub InsertLine()
'
' InsertLine Macro
'
' Keyboard Shortcut: Ctrl+Shift+I
 
    Dim s As String
    s = Selection.Address
    Range(s).EntireRow.Insert
   
End Sub

「Officeのアクセスキー」によれば、Alt → __I__nsert __R__ow でも行挿入できます。