Yes. Can do. I assume that you mean you would like the data that has been transferred to its individual sheet deleted from the main sheet. Hence, the following minor adjustment to the code should do:-
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Intersect(Target, Columns(9)) Is Nothing Then Exit Sub
Target.EntireRow.Copy Sheets(Target.Value).Range("A" & Rows.Count).End(3)(2)
Application.EnableEvents = True
Application.CutCopyMode = False
Application.ScreenUpdating = True
You'll see that I've added the delete line of code and an events handler just to prevent the code from going into an endless loop.
I also forgot to mention in my earlier post that you need to make sure that Column I is always selected last, after all data has been entered for any particular row.
P.S.: Here is the link to the updated sample:-