Function вэпээр(r1 As Range, r2 As Range, krit As Range)
Dim c As Range, r As Range, i&
    For Each c In r1
        If c.Value = krit.Value Then
        Set r = c.MergeArea
            With Intersect(r.EntireRow, r2)
                For i = .Cells.Count To 1 Step -1
                    If Len(.Cells(i).Value) Then вэпээр = .Cells(i).Value: Exit For
                Next
            End With
        End If
    Next
End Function