Поиск значений и удаление пустых строк

[Paralayzer]

Вот спасибо!
а можно сделать так что бы макрос просматривал только выделенную облась столбцов

[Teslenko_EA]

Здравствуйте Paralayzer.
отредактировав код от SAS888 подобным образом:

Sub Main()
Dim i&, o As Range
Set o = ActiveWindow.RangeSelection
With Application
    .ScreenUpdating = False
    For i = o.Rows.Count + o.Row - 1 To o.Row Step -1
        'If .CountA(Rows(i)) = 0 Then Rows(i).Delete ''пустая' строка
        If Range(Cells(i, 5), Cells(i, 14)).Text = "" Then Rows(i).Delete
    Next
    .ScreenUpdating = True
End With
End Sub

он будет "просматривать только выделенную облась"
Евгений.

[Paralayzer]

Спасибо за помощь