Sub Macro2()
On Error Resume Next
Dim c As Range
Set c = Range("B:C").Find("#N/A")
If Not c Is Nothing Then
Adr = c.Address
Do
c = c(2, 1)
Set c = Range("B:C").FindNext(c)
If Not c Is Nothing Then c = c(2, 1)
Loop While Not c Is Nothing Or c.Address <> Adr
Macro2
Else
Exit Sub
End If
End Sub