Isolating errors 2

[NWE]

Well I changed the code around and it works accept that the answer disappears out of the target cell after it runs.

Sub PrNonMatch()
    For x = 6 To 10000
        If Sheets("Detail Report").Range("E" & x) = "" Then
            decnt = x
            x = 10001
        End If
    Next x
    For x = 2 To 10000
        If Sheets("As Built").Range("L" & x) = "" Then
            bltcnt = x
            x = 10001
        End If
    Next x
    For x = 6 To decnt
         For y = 2 To bltcnt
             If Sheets("Detail Report").Range("E" & x) = Sheets("As Built").Range("L" & y) Then
                Worksheets("Generalized Report").Range("E8") = (Sheets("As Built").Range("I" & y))
            End If
        Next y
    Next x
End Sub