Библиотека существует для удаления паролей из PDFs программно? [закрытый]

Как насчет:

Function GetLastRow(strSheet, strColumn) As Long
    Dim MyRange As Range

    Set MyRange = Worksheets(strSheet).Range(strColumn & "1")
    GetLastRow = Cells(Rows.Count, MyRange.Column).End(xlUp).Row
End Function

Относительно комментария, это возвратит номер строки последней ячейки, даже когда только отдельная ячейка в последней строке имеет данные:

Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row