[v12345]

Могу вот такое готовое решение предложить. Не то, что просите, но может сойдет.

Код:

Sub HideRowsMy()
    Application.ScreenUpdating = False
    With ActiveSheet
        '---- номер последней строки с непустой ячейкой
        RowMax = Cells.SpecialCells(xlCellTypeLastCell).Row
        '---- номер последней колонки с непустой ячейкой
        ColMax = Cells.SpecialCells(xlCellTypeLastCell).Column
        For i = 1 To RowMax
            If Not IsEmpty(Cells(i, ColMax)) Then
                Set CurrR = Cells(i, ColMax)
                CurrR.EntireRow.Hidden = True
            End If
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

Суть. Правее всех данных (должен получиться последний непустой столбец) проставляем метки в тех строках, которые требуют скрытия. Метки могут быть любые, например, плюски - лишь бы ячейка стала непустой. Макрос скроет все строки с такими метками.