перенос строки с пустой ячейки

[SAS888]

Вообще-то, предложенный пример является универсальным. При Помощи этого макроса можно переносить строки, содержащие требуемые значения в конкретном столбце. В Вашем случае, когда требуется скопировать строки с пустыми ячейками в определенном столбце, макрос будет существенно проще. Например, такой:

Sub Main()
    On Error Resume Next
    Intersect([A:A], ActiveSheet.UsedRange).SpecialCells(xlCellTypeBlanks).EntireRow.Copy Sheets(2).[A1]
End Sub

Здесь On Error Resume Next нужно на случай, если нет ни одной ячейки, удовлетворяющей условию (если пусто).