macro hatası hakkında yardım

[Hyperhysv]

merhabalar;

aşağıda belirttiğim debug hatasının sebebi nedir?

Sub topla2()
For i = 2 To WorksheetFunction.Max(2, Cells(Rows.Count, 1).End(3).Row)
yeni = Cells(Rows.Count, 8).End(3).Row + 1
    If WorksheetFunction.CountIf(Range("H2:H" & yeni), Cells(i, 3)) > 0 Then
        For j = 2 To yeni - 1
       [COLOR="Red"] If Cells(j, 8) = Cells(i, 3) Then[/COLOR]
            If Cells(j, 9) = "" Then
            Cells(j, 9) = Cells(i, 1)
            Else
            Cells(j, 9) = Cells(j, 9) & "---" & Cells(i, 1)
            End If
            If Cells(j, 10) = "" Then
            Cells(j, 10) = Cells(i, 4)
            Else
            Cells(j, 10) = Cells(j, 10) & "---" & Cells(i, 4)
            End If
            If Cells(j, 11) = "" Then
            Cells(j, 11) = Cells(i, 2)
            Else
            Cells(j, 11) = Cells(j, 11) & "---" & Cells(i, 2)
            End If
        End If
        Next
    End If

130 .140 satırlık veri karşılaştırması yaparken 40.000 satırlık bir veri karşılaştırmak isterken oluştu.

teşekkürler

 

[Hyperhysv]

sorunu buldum tarama alanında olmaması gereken bir format varmış.