If .... then End If

Private Sub Worksheet_Change(ByVal Target As Range)
automatisch ausgeführt werden.
Bei bestimmten If... elseif - Abfragen möchte ich, dass die If-Abfrage beendet wird, wenn die 1. Bedingung zutrifft.
Mit einer Sprungmarke zu end if habe ich es hinbekommen (siehe Beispiel).
Hierbei muss ich aber bei jeder If-Abfrage wieder neue Sprungmarken definieren (siehe Beispiel).
Sub Makro1()
If [A1] = "" Then
GoTo Sprung1
ElseIf [A1] = 1 Then
[B1] = 1
ElseIf [A1] = 2 Then
[B1] = 2
Sprung1:
End If
End Sub