wo könnte der fehler liegen?

ist hier etwas grundlegend falsch, ohne dass ich jetzt genauer auf die aufgabe des programms eingehen muß?

Sub user()

Dim i As Integer
Dim j As Integer

Dim MaxRowtab1%, MaxRowtab2%
MaxRowtab1 = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
MaxRowtab2 = Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row

For i = 40 To MaxRowtab1
For j = 1 To MaxRowtab2


If Worksheets(1).Cells(i, 1) = Worksheets(2).Cells(j, 1) _
And Worksheets(2).Cells(j, i).Interior.ColorIndex <> 6 Then
Worksheets(1).Cells(i, 9) = Worksheets(2).Cells(j, 2)
End If

Next j
Next i

End Sub