Fehler im Makro

Hallo Excel Profis,
Ich möchte aus den ersten 2 Spielen die Treffer des Teams auslesen, welches in einer Liste angegeben ist.
Sheet "Listen", Spalte "A" stehen die Teams
Sheet "Import", stehen die Spiele, Spalten G, H, J, K = Heimteam, Gastteam, Heimtreffer, Gasttreffer
soweit bin ich im Makro bisher gekommen:

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 summeJ As Integer
Dim summeK As Integer

Set listenSheet = ThisWorkbook.Worksheets("Listen")
Set importSheet = ThisWorkbook.Worksheets("Import")
Set listenRange = listenSheet.Range("A:A").SpecialCells(xlCellTypeConstants)
Set importRange = importSheet.Range("G:H").SpecialCells(xlCellTypeConstants)

For Each listenCell In listenRange
count = 0
summeJ = 0
summeK = 0
For Each importCell In importRange
    If importCell = listenCell Or importCell.Offset(0, 1) = listenCell Then
        count = count + 1
        
        If importCell = listenCell Then
            summeJ = summeJ + importSheet.Cells(importCell.Row, "J")
        End If
        
        If importCell.Offset(0, 1) = listenCell Then
            summeK = summeK + importSheet.Cells(importCell.Row, "K")
        End If
    End If
    
    If count = 2 Then
        listenCell.Offset(0, 1).Value = summeJ + summeK
        Exit For
    End If
Next importCell
Next listenCell

End Sub