I think that I have understood what you would like to do so see if the following code does as you would like:-
Application.ScreenUpdating = False
Dim lRow As Long
Dim MySheet As String
lRow = Range("A" & Rows.Count).End(xlUp).Row
For Each sht In Worksheets
If sht.Name <> "Master" Then
For Each cell In Range("A2:A" & lRow)
MySheet = cell.Value
cell.EntireRow.Copy Sheets(MySheet).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Application.ScreenUpdating = True
Application.CutCopyMode = False
Following is my test work book for you to peruse. Run the macro and the data for each unique ID will be transferred to the respective individual sheet (including blank cells).
I hope that this helps.