向后浏览Excel Range对象的最快方法是什么？

Sub FindLastCell()
    Dim lastRow As Long, lastCol As Long
    Dim myRange As Range
    
    Set myRange = ActiveSheet.Range("A1")
    
    lastRow = myRange.End(xlDown).Row
    lastCol = myRange.End(xlToLeft).Column
    
    MsgBox "最后一行是：" & lastRow & vbNewLine & "最后一列是：" & lastCol
End Sub