Private Sub Worksheet_Change(ByVal Target As Range)
     Dim c&, r&, i&, n&, m$, s$, d(), v()
     c = Target.Column
     Select Case c
         Case 2, 3, 17
             r = Target.Row
             If r > 2 Then
                 r = r - 2
                 v = Cells(3, 2).Resize(Cells(Rows.Count, 17).End(xlUp).Row - 2, 16).Value
                 On Error Resume Next
                 s = v(r, 16)
                 With Worksheets(s)
                     n = v(r, 1)
                     d = .UsedRange.Columns(2).Value
                     For i = 1 To UBound(d)
                         If d(i, 1) = n Then
                             For r = r - 1 To 1 Step -1
                    If v(r, 1) <> n Then Exit For
                             Next
                             r = r + 1
                             For r = r To UBound(v)
                    If v(r, 1) <> n Then Exit For
                    If v(r, 16) = s Then m = m & ", " & v(r, 2)
                             Next
                             If Len(m) Then .Cells(i, 3) = Mid$(m, 3)
                             Exit For
                         End If
                     Next
                 End With
             End If
     End Select
End Sub