Sub insert_formula()
	ActiveCell.Formula = "=SUM(A1:A10)"
	'アクティブセルにA1〜A10までの
	'合計を求める数式を挿入します
End Sub