Excel Auslastung bei vba Code ??

Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim Inhalt As String
Dim Inhalt2 As String
j = 2
For i = 2 To 10 Step 1
Inhalt = Workbooks("Eint.xls").Sheets("Sheet1").Cells(i, 1).Value2
Inhalt2 = Workbooks("TabelleA.xls").Sheets("Sheet1").Cells(j, 1).Value
If i = 10 Then
i = 0
j = j + 1
End If
If Inhalt = Inhalt2 Then
Workbooks("Et.xls").Sheets("Endtabelle").Cells(j, 1) = Inhalt2
End If
Next i
End Sub