Tweaking Macro to match and find two cell values not just one

[Zawoooo]

Hey again,

Thank to rylo i am very close to getting this macro to work perfectly!

I have tried to edit it but have failed miserably.

This was the inital macro written

Sub aaa()
Dim OutSH As Worksheet
Set OutSH = Sheets("Sheet1")
Sheets("Sheet2").Activate

outcol = OutSH.Cells(3, Columns.Count).End(xlToLeft).Offset(0, 1).Column
For i = 3 To Cells(Rows.Count, 3).End(xlUp).Row
Set findit = OutSH.Range("A:A").Find(what:=Cells(i, 3).Value)
OutSH.Cells(findit.Row, outcol).Value = Cells(i, 5).Value
Next i

End Sub

It does the trick but there is a slight problem as it only matches one cell value. Which was fine at first until i realized there can be multiple results for a keyword search and it would only insert one.(see Test 2 Orange)

What i have been trying to do is, find cell A3 and B3 from sheet one in sheet two and then copy over the position cell value and then repeat for the rest