Sub insert_column()
	Selection.EntireColumn.Insert
	'列を挿入します
End Sub