Function FindEnd(ByVal Sh As Object, Optional fCol =  1 ) As Long
' Sh - объект-лист, можно вызывать как ActiveSheet
' fCol - номер колонки диапазона, проверяемый на "заполненность"
' возвращаемое значение - последняя непустая ячейка в указанной колонке
    rS =  2  ' Начальная строка диапазона поиска
    rE =  65535  ' Конечная строка диапазона поиска
    Do While (rE - rS) >  1 
        rM = Int((rE + rS) /  2 )
        If IsEmpty(Sh.Cells(rM, fCol)) Then
            rE = rM
        Else
            rS = rM
        End If
    Loop
    FindEnd = rS
End Function

Function FindEnd2(ByVal oR As Range, Optional fCol =  1 ) As Long
' Возвращаемое значение - номер строки ЛИСТА
    rS =  1 
    rE = oR.Rows.Count
    Do While (rE - rS) >  1 
        rM = Int((rE + rS) /  2 )
        If IsEmpty(oR.Cells(rM, fCol)) Then
            rE = rM
        Else
            rS = rM
        End If
    Loop
    FindEnd = oR.Row + rS - 1 
End Function