Sub MyMacro()
On Error Resume Next
Worksheets("Лист1").Columns("A").SpecialCells( _
xlCellTypeBlanks).EntireRow.Copy Worksheets("Лист2").Cells(1, 1)
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 84