'

Function ln(sheet)
    ' this function locates the last names in a sheet
    ' and returns the range that they are contained in
    
    Dim sr As Range     ' search range
    Dim rc As Range     ' reference cell
    Dim nc As Range     ' name cell
    Dim nr As Range     ' name range
    Dim r As Range
    Dim objXl
    
    Set objXl = CreateObject("Excel.Application")
    
    If sheet = "main" Then
        Set sr = Sheet1.Range("A1:AZ80")
        Set rc = sr.Find(what:="1")
        Set nc = rc.Offset(0, 1)
        Set r = Application.Union(nc, nc.Offset(70, 0))
        Set nr = Worksheets("Sheet1").r.Cells.SpecialCells(xlCellTypeConstants).Count

'
上面的函数尝试在列中查找一个特定的单元格，在该单元格中可以找到第一个姓氏。找到姓氏后，脚本尝试创建一个范围，该范围将包含该列中的所有姓氏，但不包括任何空单元格-因此在最后一行中使用“计数”。
我已经尝试修复脚本几次，但我不能得到过去的错误“运行时错误9：下标超出范围”。最后一行突出显示，我在标题中得到错误信息。请帮助，我将感谢任何关于如何使脚本更有效的额外建议。
我试着在谷歌上搜索并阅读其他人的剧本。