Ausführung einer Anweisung erzwingen

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim nummer As String
Dim datum As Date
Dim ort As String
nummer = Cells(Target.Row, 1).Value
datum = Cells(Target.Row, 2).Value
ort = Cells(Target.Row, 6).Value
If Sh.Name = "Tabelle1" Then
Sheets(ort).Select
Dim iRow
iRow = 2
Do Until IsEmpty(Cells(iRow, 1))
'1.Vergleich um gleiche PrNr's zu finden, 2.Vergleich: wenn Datum stimmt dann Wert  _
einfügen
If Cells(iRow, 1).Value = nummer And Cells(iRow, 2).Value = datum Then
Cells(iRow, 4).Value = Target
Exit Sub
End If
iRow = iRow + 1
Loop
Else
Sheets("Tabelle1").Select
iRow = 2
Do Until IsEmpty(Cells(iRow, 1))
'1.Vergleich um gleiche PrNr's zu finden, 2.Vergleich: wenn Datum stimmt dann Wert  _
einfügen
If Cells(iRow, 1).Value = nummer And Cells(iRow, 2).Value = datum Then
Cells(iRow, 4).Value = Target
Exit Sub
End If
iRow = iRow + 1
Loop
End If
End Sub

Das funktioniert auch so weit aber mein Problem ist, dass sobald ich "Cells(iRow, 4).Value = Target" ausführe das"Exit Sub" Statement nicht mehr ausgeführt wird, da logischer Weise die Sub "Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)" von vorne startet.
Jetzt meine Frage: kann ich die Ausfürung von "Exit Sub" erzwingen?, da nach dem Einfügen des Wertes in das gefundene Sheet die Arbeit ja schon erledigt ist.
Vielen Dank schon mal für Eure Mühe, bin für alle Tipps sehr dankbar, da ich wirklich auf dem Schlauch stehe und nicht weiter weiß.
Lieben Gruß
Jan