This can be done using a macro. Type the below code and run the macro :
Sub mymacro()
For i = 3 To Sheet1.Range("A65536").End(xlUp).Row
x = Sheet1.Cells(i, 6).Value
Sheet1.Select
Rows(i).Select
Selection.Copy
Sheets(x).Select
rown = Sheets(x).Range("A65536").End(xlUp).Row
Sheets(x).Range("A" &...