Sub edit_delete()
	Selection.Delete Shift:=xlToLeft
	'選択セルを削除し、左方向にシフトします。
	'引数はxlShiftUp(上方向へシフト)があります
	Selection.EntireRow.Delete
	'選択行全体を削除します
	Selection.EntireColumn.Delete
	'選択列全体を削除します
End Sub