Показать строки

[Romuald]

Всем добрый день и привет!!!
Подскажите, пожалуйста макрос, который отфильтровывал бы строки в документе, в котором в колонках в диапазоне от R до АО стоят пустые ячейки т.е нет никаких данных, начиная со второй строки и вниз до конца, пока есть записи
Заранее благодарю.
Еще раз всем фуромчанам ПРИВЕТ!!!

[EducatedFool]

Что означает "отфильтровывал бы строки в документе"?

Вот пример окрашивания подобных строк:

Sub test()
    On Error Resume Next
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Intersect(ActiveSheet.UsedRange.Offset(1), [R:AO])
    For Each cell In ra.Rows
        x = 0: x = cell.SpecialCells(xlCellTypeBlanks).Count
        If x > 0 Then ' в строке есть пустые ячейки
            cell.Interior.Color = vbRed    ' выделяем строку цветом
        End If
    Next cell: Application.ScreenUpdating = True
End Sub

[Romuald]

Не правильно я написал .... мне надо макрос, который бы c помощью автофильтра оставил строки в документе, в котором в колонках в диапазоне от R до АО стоят пустые ВСЕ ячейки т.е все те строки от R до AO в которых нет никаких данных, начиная со второй строки и вниз до конца, пока есть записи.
Заранее благодарю.