最強！最終行

Function rEnd(Optional ByVal clmS As String, _

　　　　　　 Optional ByVal wsNm As String) As Long
　　If wsNm = "" Then wsNm = ActiveSheet.Name
　　If clmS = "" Then clmS = "A"
　　Dim ws As Worksheet: Set ws = Worksheets(wsNm)
　　rEnd = ws.Range(clmS & Rows.Count).End(xlUp).Row
End Function

rEnd()

とするだけで、Ａ列の最終行が！