Hi Bogleda,

Just in case you want to change the Number:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
                Set Sh = ActiveSheet
If Sh.Name = "Table of Context" Or Sh.Name = "CONVERSIONS" Or _
Sh.Name = "DropDown Menus" Then Exit Sub
If Target <> "" And Target.Column < 6 Then
Dim wt As Worksheet, X As String, FN As String, F As Range, D, r As Long
Set wt = Sheets("Table of Context"):  r = Target.Row: X = Cells(r, 1)
If Target.Column = 1 Then X = Cells(r, 2)
D = Range(Cells(r, 1), Cells(r, 6)): D(1, 6) = Sh.Name
Set F = wt.Range("A:B").Find(X)
If Not F Is Nothing Then
Application.EnableEvents = False
wt.Range(wt.Cells(F.Row, 1), wt.Cells(F.Row, 6)) = D
Application.EnableEvents = True
End If: End If: End Sub