Office: Vlookup Eigenschaft kann nicht zugeordnet werden.

Guten Morgen,
mein Problem ist folgendes. Ich habe über einen Macro einen Sverweis auf eine Tabelle gemacht, bei der in Abhängigkeit von Gewicht und Entfernung verwiesen wird. Eigentlich funktionierte das zu Beginn auch, allerdings bekomme ich die Fehlermeldung "Vlookup-Eigenschaft des Worksheet-Function-Objektes kann nicht zugeordnet werden".
Der Code sieht folgendermaßen aus:

Code:

Do While Worksheets("Quelle").Cells(4 + i, 1) <> ""
    
    Worksheets("Quelle").Select
    If ActiveSheet.Cells(4 + i, 10) = "X" Then GoTo loop_
    Entfernung = ActiveSheet.Cells(4 + i, 8).Value
    If IsNumeric(ActiveSheet.Cells(4 + i, 6)) = False Then
            Exit Sub
        End If
    Gewicht = ActiveSheet.Cells(4 + i, 6).Value
    'Spalte suchen
    Select Case Entfernung
    Case Is < 101
            spalte = 2
    Case Is < 201
            spalte = 3
    Case Is < 301
            spalte = 4
    Case Is < 401
            spalte = 5
    Case Is < 501
            spalte = 6
    Case Is < 601
            spalte = 7
    Case Is < 701
            spalte = 8
    Case Else
            End Select
    
        
    'Wert suchen
    Ausgabe = WorksheetFunction.VLookup(Gewicht, Sheets("Abfrage").[a2:h17], spalte,false)
    Worksheets("Ziel").Cells(4 + i, 10).Value = Ausgabe
loop_:
    
    i = i + 1
    Loop

Wie kann ich dieses Problem lösen?

VIelen Dank