Quote Originally Posted by mdmackillop
Your Products contain some typos, so you will see Value errors


Cell B2 =PIVOT($A2,B$1)

[VBA]Function Pivot(Sales, Product)
Dim Sh As Worksheet
Dim S, P
Set Sh = Sheets(1)
S = Sh.Columns(1).Find(Sales).Row
P = Sh.Rows(1).Find(Product).Column
Pivot = Sh.Cells(S, P)
End Function[/VBA]
That works amazingly!

One follow-up question that I do have:
And any time there is a change to the sales person name or the item list, I would just need to add the code to Cell B2 and drage it over/down and all items will match up again?