Private Sub Worksheet_Change(ByVal Target As Range)
Range("A17:J200").Select
Application.DisplayAlerts = False
[COLOR="red"]Selection.UnMerge[/COLOR]
Selection.Sort _
Key1:=Range("A:A"), Order1:=xlAscending, _
Key2:=Range("B:B"), Order2:=xlAscending, _
Key3:=Range("C:C"), Order3:=xlAscending, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A17").Select
Application.DisplayAlerts = True
[COLOR="Red"]Macro2[/COLOR]
End Sub