Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim S, FN, sh As Worksheet, tgt As Range 
    On Error GoTo Exits 
    Application.EnableEvents = False 
    If Target.Address = "$B$2" Then 
        S = Target.Offset(, -1) 
        FN = Target 
        For Each sh In Worksheets 
            Select Case sh.Name 
            Case "FundName Rollup Mapping", "Prod Category Lookup", "Retail Flash NCF by Month" 
                Set tgt = sh.Cells(Rows.Count, 2).End(xlUp)(2) 
                tgt.Value = FN 
            Case "AuM_Data" 
                Set tgt = sh.Cells(Rows.Count, 1).End(xlUp)(2) 
                tgt.Value = FN 
            Case "NCF_Data" 
                Set tgt = sh.Columns(1).Find(S, after:=sh.Cells(1, 1), searchdirection:=xlPrevious) 
                tgt(2).EntireRow.Insert 
                tgt(2).Resize(, 3) = Array(S, "", FN) 
            End Select 
        Next 
    End If 
    Target.Offset(, -1).Resize(, 2).ClearContents 
Exits: 
    Application.EnableEvents = True 
End Sub