У Вас первый элемент массива имеет индекс 1.
В первом шаге цикла производится попытка обратится к элементу с индексом 0.

Вообщем сделайте следующее:
1. Уберите "b(i) = Cells(1 + i, 2)"
2. Выносите "b(1) = 1" из цикла
3. Начальное значение s должно равнятся b(1)
4. Цикл начинайте с 2, вместо 1