Еще один вопрос про протягивание ячеек

[Pavarotti]

Господа гуру!
К сожалению, не нашел на форуме подходящего решения по следующей теме.
Основной вопрос - как организовать протягивание первой не пустой ячейки (в примере-А1) в столбце А до следующей не пустой в этом столбце (в примере-А11), затем протягиваем эту самую последнюю ячейку (перед которой остановилось предыдущее заполнение (в примере-А11) и протягиваем ее дальше до (в примере-А16). Каждое такое протягивание, думается, стоит снабдить проверкой на пустоту ячейки из соседнего столбца (Б) чтобы не проверять на не пустость весь столбец (А) и не заполнять все ячейки этого столбца до конца.

[Volodshan]

Заполнение пустых: http://www.interface.ru/home.asp?artId=27586... Как вариант.

[SAS888]

Можно выполнить такой макрос:

Sub qq()
    Dim x As Range, y As Range: On Error Resume Next
    Set x = Range("A1:A" & Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
    If x Is Nothing Then Exit Sub Else On Error GoTo 0
    For Each y In x.Areas
        y = y.Cells(1, 1).Offset(-1)
    Next
End Sub

[Pavarotti]

Спасибо большое! Код идеально решает поставленную задачу.