Option Explicit
Sub Macro1()
Range("A1").Formula = "=IF(ISNA(VLOOKUP(A2,'Original BHHS List'!$A$1:$A$84,1,FALSE)), ""Not Duplicate"", ""Duplicate"")"
End Sub
Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = "=IF(ISNA(VLOOKUP(A2,'Original BHHS Error List'!$A$1:$A$84,1,FALSE)), ""New Error"", ""Duplicate Error"")"