>65

手作業が面倒なので、マクロを使うんです。

例が悪いけど、1行飛ばしで1〜1000まで数字入れろと言われたら
へコへコ入力するのは面倒でしょ？

Sub aaa()
　i = 1
　Do While i <= 1000
　　　ActiveCell = i
　　　ActiveCell.Offset(2, 0).Activate
　　　i = i + 1
　Loop
End Sub

こんなケースなら、慣れると1分もあれば終わります。