Sub test3()
     
     Dim i As Long
    x = ActiveWorkbook.ActiveSheet.Cells(Rows.Count,  1 ).End(xlUp).Row
           
    Debug.Print x
    
End Sub

Function LastRow(Optional KeyColumn& =  0 , Optional WS As Worksheet) As Long
    
    If WS Is Nothing Then Set WS = ActiveSheet
    
    If KeyColumn =  0  Then
        LastRow = WS.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    Else
        LastRow = WS.Cells(Rows.Count, KeyColumn).End(xlUp).Row
    End If
   
End Function

Function LastRow(Optional KeyColumn& =  0 , Optional WS As Worksheet) As Long
    
    If WS Is Nothing Then Set WS = ActiveSheet
    
    If KeyColumn =  0  Then
        LastRow = WS.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    Else
        LastRow = WS.Cells(Rows.Count, KeyColumn).End(xlUp).Row
    End If
   
End Function

Public Function LastRow(Optional KeyColumn& =  0 , Optional WS As Worksheet) As Long
    
    If WS Is Nothing Then Set WS = ActiveSheet
    
    If KeyColumn =  0  Then
        LastRow = WS.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    Else
        LastRow = WS.Cells(WS.Rows.Count, KeyColumn).End(xlUp).Row
    End If
   
End Function

Public Function LastRow(Optional KeyColumn& =  0 , Optional WS As Worksheet) As Long
    
    If WS Is Nothing Then Set WS = ActiveSheet
    
    If KeyColumn =  0  Then
        LastRow = WS.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    Else
        LastRow = WS.Cells(WS.Rows.Count, KeyColumn).End(xlUp).Row
    End If
   
End Function

Public Function LastRow_MySuper(Optional KeyColumn& =  0 , Optional WS As Worksheet) As Long
Dim z As Long

    LastRow_MySuper = LastRow(KeyColumn, WS)

    If KeyColumn =  0  Then
        LastRow_MySuper = LastRow_MySuper +  1 
        
        Do
            LastRow_MySuper = LastRow_MySuper -  1 
            
            z = WorksheetFunction.CountIf(Range(Cells(LastRow_MySuper,  1 ), Cells(LastRow_MySuper,  256 )), "*?") + _
                WorksheetFunction.CountIf(Range(Cells(LastRow_MySuper,  1 ), Cells(LastRow_MySuper,  256 )), ">0")
    
        Loop While z =  0 
    End If
    
End Function

? Intersect( _
      Cells.Find("*", Cells( 1 ), xlValues, xlWhole, xlByRows, _
        xlPrevious).EntireRow, _
      Cells.Find("*", Cells( 1 ), xlValues, xlWhole, xlByColumns, _
        xlPrevious).EntireColumn).Address

LastRow = Sh.Cells(Sh.Rows.Count,  1 ).End(xlUp).Row

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