Как-то сложновато. Там же есть какие-то быстрые объекты типа range. Не?
@namokonov Function VPR(Table, SearchColumnNumber, SearchValue, ResultColumnNumber) VPR = Table.Cells(Table.Columns(SearchColumnNumber).Find(SearchValue).Row, ResultColumnNumber) End Function