VBA Excel - Select first filtered cell

[ErikJan]

I have a table with a header. I apply a filter in VBA. I move the upper-left cell to the top of my screen (Application.goto Range("A1"), True).
Now I want to select the first visible cell in column A (that might not be A1 of course). How do I do that?

[HansV]

For example

Code: Select all

    Application.GoTo Range("A2:A1048576").SpecialCells(xlCellTypeVisible).Cells(1)

[Rudi]

Alternatively, if it is an Excel Table (LIstObject) then:

Code: Select all

    ActiveSheet.ListObjects(1).DataBodyRange.SpecialCells(xlCellTypeVisible).Cells(1).Select