Add New Items To Data Validation List

I have a user form named "final report" worksheet which contains 12 cells (B14:18,B19,C19,B38:39,E34:35 and C46) with dropdown list validation. These cells are noncontiguous. The corresponding lists are on the other worksheet--"MyLists". The list are in adjacent 12 columns on that sheet.They begin from cell A1 without any header. I have named them as dynamic ranges. This is-- not exactly connected to my query but still -- I coded the "MyLists" worksheet so that when I delete or add the names in the list, the empty cells shift up or down accordingly in a sorted manner in the list.Here is that

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Columns(Target.Column).Sort Key1:=Cells(1, Target.Column), _
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End Sub

to code the "final report" worksheet so that instead of just selecting from the dropdown list, I can type a new entry in any of those 12 cells and the "MyLists" worksheet will get updated in the respective columns simultaneously.