Private Sub Worksheet_Change(ByVal cel As Range)
If Intersect(cel, [C:E]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
Set cel = ActiveCell
[M2:M65536].Copy
[N2].PasteSpecial Paste:=xlPasteValues
[R2].PasteSpecial Paste:=xlPasteValues
[I2:I65536].Copy
[O2].PasteSpecial Paste:=xlPasteValues
[K2:K65536].Copy
[S2].PasteSpecial Paste:=xlPasteValues
[N2:O65536].Sort Key1:=[O2], Order1:=xlAscending
[R2:S65536].Sort Key1:=[S2], Order1:=xlAscending
cel.Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub