Sub セルを挿入する_下方向にシフト()

    Range("B2").Insert Shift:=xlDown

End Sub