I'm assuming that you have all the individual sheets already set up so the following code should work for you:-
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Intersect(Target, Columns("I:I")) Is Nothing Then Exit Sub
Target.EntireRow.Copy Sheets(Target.Value).Range("A" & Rows.Count).End(3)(2)
Application.CutCopyMode = False
Application.EnableEvents = True
Application.ScreenUpdating = True
The code is a Worksheet_Change event hence, every time that you place a value in a cell in Column I and then click away (or press enter or down arrow), the relevant row of data will be transferred from the Master sheet to the relevant individual sheet.
This type of code needs to be placed in the worksheet module. To implement the code:-
- right click on the Master sheet tab.
- Select "view code" from the menu that appears.
- In the big white field that then appears, paste the above code.
Let us know if this works for you and remember to test the code in a copy of your work book first.
I hope that this helps.