Public Function GetProduct(company_name, postion)

Set d = CreateObject("scripting.dictionary")
last_B = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
bb = Sheets("Sheet2").Range("B1:C" & last_B)
For i = 2 To UBound(bb)
    If bb(i, 1) = company_name And Not IsEmpty(bb(i, 2)) And Not IsNull(bb(i, 2)) Then
        d(bb(i, 2)) = i
    End If
Next
'On Error GoTo myerr
GetProduct = d.Keys()(postion - 1)
'myerr:
'GetProduct = ""
End Function