Macro - Move Cursor Down in the Filter Range

[seageath]

Hi, I need to create macro to move 1 cell down in the filter rows as per image attached, using record macro it will recorded as below:

Range("A9850").Select

My scenario is: Goto A1, Down 1 Cell, and select all remaining rows for me to delete these rows.

But under different circumstances the row number might be different.
Let me know if need more details to explain the scenario.

~SEA~

 

[seageath]

Found it, posted 12 years back

Redirecting

In short, this is the function:

Function findFirstVisibleFilteredCell(StartCell As Range)
    
    Dim aRng As Range
    Set aRng = StartCell.CurrentRegion  'aRng also contains the header row
    Set aRng = aRng.Offset(1, 0).Resize(aRng.Rows.Count - 1) 'and now it doesn't
    Set findFirstVisibleFilteredCell = aRng.SpecialCells(xlCellTypeVisible).Cells(1, 1)

End Function

Your welcome