warum "Typen unverträglich?

Hallo Excel Experten,
ich habe von MCO ein Makro, welches mir die "10-0" Ergebnisse von Heim,- und Gastspielen eines Teams (aus Sheet "Listen" zählt,- FUNZT!
Wenn ich aber nun die Ergebnisse "10-0" oder "0-10" suche kommt die Meldung; "Typen unverträglich" Laufzeitfehler 13
Das Original Makro:

Sub zaehle_10_0_alleSpiele_ersten4()
    Dim listenSheet As Worksheet
    Dim importSheet As Worksheet
    Dim listenRange As Range
    Dim importRange As Range
    Dim listenCell As Range
    Dim importCell As Range
    Dim count As Integer
    Dim count2 As Integer
    
    ' Set references to the worksheets and ranges
    Set listenSheet = ThisWorkbook.Worksheets("Listen")
    Set importSheet = ThisWorkbook.Worksheets("Import")
    Set listenRange = listenSheet.Range("A:A").SpecialCells(xlCellTypeConstants)
    Set importRange = importSheet.Range("G:G").SpecialCells(xlCellTypeConstants)
    
    ' Loop through the names in the Listen sheet
    For Each listenCell In listenRange
        count = 0
        count2 = 0
        For Each importCell In importRange
            If importCell = listenCell Or importCell.Offset(0, 1) = listenCell Then
                count = count + 1
                If importSheet.Cells(importCell.Row, "I") = "10-0" Then count2 = count2 + 1
            End If
            If count = 4 Then listenCell.Offset(0, 4).Value = count2: Exit For
        Next importCell
    Next listenCell
End Sub

If importSheet.Cells(importCell.Row, "I") = "10-0" Or "0-10" Then count2 = count2 + 1