Try this macro in the Sheet1 code module in DATA FILE A. This macro will only copy over the data changes for existing accounts. New accounts will have to be entered manually in both files. After you enter new accounts, any changes you make to those new accounts will be copied to DATA FILE B.
Code
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E:E,G:G")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Dim LastRow As Long
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Dim desWB As Workbook
Set desWB = Workbooks("DATA FILE B.xlsm")
Dim foundVal As Range
If Target.Row <= LastRow Then
Select Case Target.Column
Case Is = 5
If Target.Offset(0, -1).Value = "FDR" Then
Set foundVal = desWB.Sheets("FDR").Range("O:O").Find(Target.Offset(0, -3), LookIn:=xlValues, lookat:=xlWhole)
If Not foundVal Is Nothing Then
foundVal.Offset(0, 1).Value = Target.Value
End If
Else
Set foundVal = desWB.Sheets(Target.Offset(0, -1).Value).Range("N:N").Find(Target.Offset(0, -3), LookIn:=xlValues, lookat:=xlWhole)
If Not foundVal Is Nothing Then
foundVal.Offset(0, 1).Value = Target.Value
End If
End If
Case Is = 7
If Target.Offset(0, -3).Value = "FDR" Then
Set foundVal = desWB.Sheets("FDR").Range("O:O").Find(Target.Offset(0, -5), LookIn:=xlValues, lookat:=xlWhole)
If Not foundVal Is Nothing Then
foundVal.Offset(0, 2).Value = Target.Value
End If
End If
End Select
End If
Application.ScreenUpdating = True
End Sub
Display More