回答編集履歴

  入れたい値は別の変数（たとえば`k`）にして、

  `Cells(i, j) = k`

  で、二重ループに入る前に

  として、セルを進めるたびに`k`をインクリメントしていけば良いのでは。