Как активировать ячейку в первой нескрытой записи?

[dsapa]

Здравствуйте!
В макросе циклом For...Next по условию If...Then скрываю некоторые записи:
Selection.EntireRow.Hidden = True

Как после этого выбрать (активировать) ячейку в первой из оставшихся нескрытой записи? Дело в том, что код:

Cells(1, j).Activate ' активирую певую строку-заголовок. j - у меня столбец, по которому скачет курсор активной ячейки.
ActiveCell.Offset(1, 0).Activate ' опускаюсь на вторую строку, которая, по идее является первой нескрытой.

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

[EducatedFool]

Например, так:

Sub test()
    j = 5
    Cells(2, j).Resize(10000).SpecialCells(xlCellTypeVisible).Cells(1).Activate ' работает всегда корректно
    ' или так:
    ' Cells(2, j).End(xlDown).Activate ' работает не всегда - только если скрыта 2-я строка
End Sub

[SAS888]

Или так:

Cells(ActiveWindow.ScrollRow, j).Activate

[dsapa]

Огромное спасибо! Работает!