Продолжить макрос в Excel до 10000 ячеек

Приветствую уважаемые отвечающие, нужна ваша помощь: Для штрих-кодов карт нужно в экселе разбить 10000 номеров в столбик, для последующего программирования. Для одной ячейки работает:

For i = 1 To Len([A1])
Cells(i + 1, 1) = Mid([A1], i, 1)
Next

как сделать чтобы работало для B1, C1 и так далее