Does this function do what you want (it places the output in Column A, shown in blue, of the "Generalized Report" sheet, so you might need to change that)...
Sub Isolate_Errorsx() Dim Sht As String, Arr As Variant
Sht = "'" & Sheets("Merged Differences").Name & "'!"
With Sheets("Merged Differences").Range("A1", Sheets("Merged Differences").Cells(Rows.Count, "A").End(xlUp))
Sheets("Generalized Report").Range("A1:A" & .Rows.Count).Value = Evaluate("IF((" & Sht & .Address & "<>"""")*(" & Sht & .Offset(, 22).Address & "="""")," & Sht & .Offset(, 1).Address & ","""")")
End With
Sheets("Generalized Report").Columns("A").SpecialCells(xlBlanks).EntireRow.Delete
End Sub |