Dos condiciones para dos rangos en el evento Change.

Hola, que tal?

Tengo una pregunta que haceros,
Tengo un código en el módulo de una hoja, que cuando hay cambios en
cualquier celda de este rango [A1:K65536] se ejecuta un código y lo
que pregunto es como puedo hacer para que si también hubiera cambios
en el rango [M1:P65536] se ejecute otro código, bueno en este caso
seria una 'Call'.
Expongo el código que tengo:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:K65536]) Is Nothing Then Exit Sub

With Application
.ScreenUpdating = False
.EnableEvents = False


With Sheets("Piezas")
.[A1].CurrentRegion.EntireRow.Delete
[D:D].AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=.[A1], _
Unique:=True
.[A1].CurrentRegion.Sort Key1:=.[A1], Header:=xlGuess
End With

With Sheets("Piezas_pequenas")
.[A1].CurrentRegion.EntireRow.Delete
[D:D].AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=.[A1], _
Unique:=True
.[A1].CurrentRegion.Sort Key1:=.[A1], Header:=xlGuess
End With

.ScreenUpdating = True
.EnableEvents = True

End With
End Sub

Gracias,
jose