１行挿入

「個人用マクロ」に入れておくと、とても便利

Sub InsertRow()

'

' １行挿入(Ctrl+Shift+I で実行)

'

' Keyboard Shortcut: Ctrl+Shift+I

'

Dim r As Range

Set r = ActiveCell.EntireRow

r.Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End Sub