Não sei se entendi muito bem o objetivo, mas o tratamento de erros do código simplesmente não tá existindo. O código simplesmente continua a executar tudo aquilo que foi colocado depois do 'Erro 1' e do 'Erro 2'. Caso você queira que o código passe por cada um dos erros, sugiro o seguinte:

Sub Desenvolvendo()

Dim EX1a As String
Dim EX1b As String
Dim EX2a As String
Dim EX2b As String
Dim EX3a As String
Dim EX3b As String
Dim EX4a As String
Dim EX4b As String
Dim EX5a As String
Dim EX5b As String



EX1a = Sheets("Plan1").Range("J5"): EX1b = Sheets("Plan1").Range("J6")
EX2a = Sheets("Plan1").Range("J7"): EX2b = Sheets("Plan1").Range("J8")
EX3a = Sheets("Plan1").Range("J9"): EX3b = Sheets("Plan1").Range("J10")
EX4a = Sheets("Plan1").Range("J11"): EX4b = Sheets("Plan1").Range("J12")
EX5a = Sheets("Plan1").Range("J13"): EX85b = Sheets("Plan1").Range("J14")

k = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

On Error GoTo Erro1
  Range("A5:A" & k).Find(What:=EX1a).Select
  Range(Selection, Selection.End(xlToRight)).ClearContents
Exit Sub

Erro1:
  On Error GoTo Erro2
  Range("M5:M" & k).Find(What:=EX1b).Select
  Exit Sub
Erro2:  
  Range(Selection, Selection.End(xlToRight)).ClearContents
  Exit Sub

End Sub

Caso você queira unificar os dois handlers, basta remover as linhas "On Error GoTo Erro2", "Erro2:" e a última "Exit Sub".

Não sei se serviu para clarear, mas confesso que não entendi bem onde você quer chegar. A discussão tá aberta!

Boa sorte!

Deu certo, mesmo vocês não entendendo ao certo.

Muito obrigado!