Still Stuck On A loop

[NWE]

So far I have

Sub PrError()
For x = 1 To 10001
  If Sheets("Detail Report").Range("E" & x) = "Audit Error" Then
        If  If Sheets("Detail Report").Range("B" & x) = "" Then 'Line item connection
     If Worksheets("As Built").Range(Sheets("Detail Report").Range("B" & x).Value).Value = Sheets("Detail Report").Range("B" & x).Value Then
      Worksheets("Generalized Report").Range("C16").Value = Worksheets("Generalized Report").Range("A4").Value + Worksheets("Contract").Range(Sheets("Detail Report").Range("A" & x).Value).Offset(, +6).Value - Worksheets("As Built").Range(Sheets("Detail Report").Range("A" & x).Value).Offset(, +6).Value
    End If
  End If
Next x
End Sub

I want to say If Audit Error, Look at line item (Column B) match that line item to line item on "As Built" then if these are true, subtract the offset value of contract from the offset value of As built. So A + 6 is Column G which is ex quantity.