[Stejar]

Т.к. подсказки не дождался, посчитаем тему закрытой.
Решил вопрос по другому. В ячейках поставил "*" (можно было через любой другой знак, букву (пробел не катит, т.к. не всегда на вид пустая ячейка является пустой), и оператором IF добился нужного результата.

В общем ребята, не спешите переходить на Windows 10 и Ofis 2016. То что раньше работало без проблем, ныне дает сбой на ровном месте, когда выскакивает ошибка в VBA нажимаешь Debug, далее RunSub и работа продолжается до окончания макроса или следующего сбоя.