Вы можете сделать это без VBA, просто используйте условное форматирование .
Отметьте диапазон, перейдите к условному форматированию, добавьте новое правило с типом правила «Используйте формулу, чтобы определить, какие ячейки форматировать» и введите
=AND($A1<>"",MOD(ROW(),2)=1)
(в зависимости от региональных настроек может потребоваться обмен ","
на ";"
- тот же синтаксис, что и в обычной формуле)
Затем нажмите кнопку «Формат» и выберите цвет заливки.