Sub MergeMyData()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Master" Then
ws.Range("C1", ws.Range("C" & ws.Rows.Count).End(xlUp)).Copy Sheets("Master").Range("B" & Rows.Count).End(xlUp).Offset(1)
End If
Next ws
With Sheets("Master").Range("B1", Range("B" & Rows.Count).End(xlUp))
.Sort Key1:=Range("B1"), _
Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Sheets("Master").Range("B1", Range("B" & Rows.Count).End(xlUp)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Master").Range("A1"), Unique:=True
Sheets("Master").Range("B1", Range("B" & Rows.Count).End(xlUp)).ClearContents
Application.ScreenUpdating = True
End Sub