Fehlermeldung: IF Block ohne End if

Sub Verweis()
Dim sPath As String, sFile As String
Dim sWks As String, sRng As String
Dim P As Integer
'Zeile 7
If Tabelle1.Range("E5") = 0 Then GoTo EndeTabelle1
sFile = Tabelle1.Range("B5").Value       'Pfadbezeichnung in Blatt "Mittarbeiter"
P = InStrRev(sFile, "\")                 'Aufteilung Pfad und Dateiname
sPath = Left$(sFile, P)                  'Aufteilung Pfad und Dateiname
sFile = Mid$(sFile, P + 1)               'Aufteilung Pfad und Dateiname
sWks = Tabelle1.Range("C5").Value        'Blattname in Tabellenblatt "Tabelle1"
sRng = Tabelle1.Range("A1").Value        'Suchbereich von SVerweis
If Dir(sPath & sFile) = "" Then
Beep
MsgBox "Quelldatei " & sPath & sFile & _
" wurde nicht gefunden!"
Range("d7").Formula = _
"=VLOOKUP($A$5,'" & sPath & _
"[" & sFile & "]" & sWks & "'!" & _
sRng & ",D$1,0)"
EndeTabelle1:
'Zeile 8
If Tabelle1.Range("E6") = 0 Then GoTo EndeTabelle2
sFile = Tabelle1.Range("B6").Value       'Pfadbezeichnung in Blatt "Mittarbeiter"
P = InStrRev(sFile, "\")                 'Aufteilung Pfad und Dateiname
sPath = Left$(sFile, P)                  'Aufteilung Pfad und Dateiname
sFile = Mid$(sFile, P + 1)               'Aufteilung Pfad und Dateiname
sWks = Tabelle1.Range("C6").Value        'Blattname in Tabellenblatt "Tabelle1"
sRng = Tabelle1.Range("A1").Value        'Suchbereich von SVerweis
If Dir(sPath & sFile) = "" Then
Beep
MsgBox "Quelldatei " & sPath & sFile & _
" wurde nicht gefunden!"
Range("d8").Formula = _
"=VLOOKUP($A$5,'" & sPath & _
"[" & sFile & "]" & sWks & "'!" & _
sRng & ",D$1,0)"
EndeTabelle2:
Range("D7:d9").Select
Selection.Copy
Range("E7:AH11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub