While j < [B]987[/B]
If Sheets("Sheet2" ).Cells(4, i).Value = Sheets("Sheet1" ).Cells(2, j).Value And Sheets("Sheet2" ).Cells(4, i).Value <> "" Then
Sheets("Sheet1" ).Cells(7, [B][SIZE=3]j[/SIZE][/B]).Value = Sheets("Sheet2" ).Cells(10, i).Value And j = 1000
Else: j = j + 1
End If
Wend