Sub test()
Dim rng1 As Range, rng2 As Range
Dim rs, cs As Range
For Each rng1 In [a2:a9]
If rng1.Value = [b13].Value Then
rs = rng1.EntireRow
Exit For
End If
Next
For Each rng2 In [b1:g1]
If rng2.Value = [b14].Value Then
cs = rng2.EntireColumn
Exit For
End If
Next
[b15] = Intersect(rs, cs).Value