Sub insert_cell()
	Selection.Insert Shift:=xlToRight
	'セルを挿入し右にシフトします
	'下にシフトの場合xlDownを使います
	Selection.EntireRow.Insert
	'行を挿入します
	'列を挿入するばあいEntireColumnを使います
End Sub