Sub CopyCells()
' В выделенном вертикальном диапазоне (клетки по столбцу к примеру А2:А150)  
' заполнены следующие клетки: А2, А10, А60, А80  
' Макрос позволит размножить значение заполненных клеток на внизлежащие до следующей заполненной  
' Таким образом после выполнения макроса мы получим следующее:  
' диапазон А3-А9 будет заполнен значениями клетки А2  
' диапазон А11-А59 будет заполнен значениями клетки А10  
' диапазон А61-А79 будет заполнен значениями клетки А60  
' диапазон А81-А150 будет заполнен значениями клетки А80  
'  
Dim cel As Range

' Цикл перебора клеток выделенного диапазона  
For Each cel In Selection
 
' Если клетка со сдвигом вниз на одну позицию Offset(1, 0) пустая = ""  
' то она равна значению текущей клетки  
If cel.Offset(1, 0) = "" Then cel.Offset(1, 0) = cel
 
' перемещаемся на клетку вниз  
Next  
End Sub