Sub TestLastRow()
Dim RowIndex As Long

    Columns( 1 ).Clear

    For RowIndex =  1  To  20 
        Cells(RowIndex,  1 ).Value = (RowIndex Mod  3 ) +  1 
    Next RowIndex

    If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
     
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:= 1 , Criteria1:="2"
    
    With Range("A50").End(xlUp)
        .Select
        .Interior.ColorIndex =  6 
    End With
    
    Range("A1").AutoFilter Field:= 1 
End Sub

Cells.Find("*", , , , xlByColumns, xlPrevious).Address

Public Function LastRow(Optional TheCol =  0 , Optional Wsh As Worksheet) As Long
' находит последний ряд используемого диапазона
' если указано значение TheCol то находтся последний ряд с непустой ячейкой в колонике TheCol
' если в колонке или на листе нет значений возвращает 1

    If Wsh Is Nothing Then Set Wsh = ActiveSheet

    With Wsh
        LastRow = .UsedRange.Row + .UsedRange.Rows.Count
    
        If Not TheCol =  0  Then
            Do While .Cells(LastRow, TheCol).FormulaR1C1 = "" And LastRow >  1 
                LastRow = LastRow -  1 
            Loop
        End If
    End With
    
End Function

Public Function LastRow(Optional Wsh As Worksheet) As Long
    If Wsh Is Nothing Then Set Wsh = ActiveSheet
    Set x = Wsh.UsedRange 'Reset the used range just in case
    LastRow = Wsh.Cells.SpecialCells(xlCellTypeLastCell).Row
End Function