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

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

End Sub