The following code may do the task for you:-
Application.ScreenUpdating = False
Dim ar As Variant
Dim i As Integer
ar = Array("Big", "Little", "Medium")
For i = 0 To UBound(ar)
Sheet1.Range("K2", Sheet1.Range("K" & Sheet1.Rows.Count).End(xlUp)).AutoFilter 1, ar(i)
[A2].CurrentRegion.Copy Sheets(ar(i)).Range("A" & Rows.Count).End(3)
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Data transfer completed!", vbExclamation, "Status"
It will find the criteria (in this case "Big", "Little", "Medium") in Column K of Sheet1 (which you could name "Master") and transfer the relevant row of data to each individual sheet. The criteria are in an array.
Following is the link to my test work book:-
Click on the button to run the code.
Let us know if its what you were thinking of.
I hope that this helps.