Auto Sort Multicolumn after new data enter

[h434]

How to auto sort column for Column J first after new data key in even column M not fill up yet?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("J:J, M:M")) Is Nothing Then
If Target.CountLarge > 1 Then Exit Sub
If Range("J" & Target.Row) <> "" And Range("M" & Target.Row) <> "" Then
Range("J1:M" & Range("J" & Rows.Count).End(1).Row).Sort _
key1:=Range("J1"), order1:=xlAscending, key2:=Range("M1"), order2:=xlAscending, Header:=xlYes
End If
End If
End Sub

 

[bebo021999]

this code trigger any change in either J or M

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range("J:J, M:M")) Is Nothing Then
    Range("J1:M" & Range("J" & Rows.Count).End(1).Row).Sort _
    key1:=Range("J1"), order1:=xlAscending, key2:=Range("M1"), order2:=xlAscending, Header:=xlYes
End If
End Sub

 

[h434]

If i want to make change in column J first without data entry at column M, how to do it. after sorting at J, then when I enter data at column M, it continue to sort at column M then

 

[bebo021999]

This is how my code work:
1- Change J (or M)
2- Sorting J and M
Is it OK?
If not, which step do you need?

 

[h434]

It works!!! Thank a lot, this one solve my problem. Thank you yaa