>>366です。
ActiveCell.Cells(i, 1).Value = S(i + 1)
で、できてしまいました・・・・・偶然に・・・・・