какое условие цикла можно использовать для непрерывной работы кода

Question

У меня есть простой код для копирования значения ячейки. Как заставить его работать в цикле

Selection.FillDown
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

Answer 1

Я не рекомендую бесконечный цикл, поэтому определите максимальное число строк, или цикл из выбора должен быть хорошим.

for each cel in Selection
   if cel.value="" then
      cel.value=cel.offset(-1,0).value
   end if
next

должен пройти через выбранные ячейки, заполняя пустые из данных верхней ячейки.