VBA Select the previous visible cell in a filtered table.

[morest38]

Hi Guys,
I'm trying the select using vba the previous visible cell in a filtered sheet.

Dim rng As RangeSet rng = Range(Cells(ActiveCell.Row + 1, 1), Cells(Rows.Count, 1))
rng.SpecialCells(xlCellTypeVisible).Cells(1).Select
ActiveCell.Offset(0, 17).Activate

Here is a code I have that does exactly that but for the next cell below. I want to make it so that it select the previous one instead.
Anyone can help? Thank you so much for any help!

 

[rlv01]

One way

Sub SelPrevCell()
    Dim R As Range, rng As Range, rngV As Range
    Dim I As Long

    Set rng = Range(Cells(1, 1), Cells(Rows.count, 1))    'column A
    Set rngV = rng.SpecialCells(xlCellTypeVisible)

    If ActiveCell.Row > 1 And ActiveCell.Column = 1 Then
        For I = -1 To -ActiveCell.Row Step -1
            Set R = ActiveCell.Offset(I, 0)
            If Not Application.Intersect(R, rngV) Is Nothing Then
                Exit For
            End If
        Next I
    End If

    If Not R Is Nothing Then
        R.Select                                      'select previous visible cell
    End If
End Sub

 

[Akuini]

Another option:

Dim c As Range
Set c = ActiveCell
    Do
        If c.Row = 1 Then Exit Do
        Set c = c.Offset(-1)
    Loop Until c.Rows.Height <> 0
c.Activate