Здравствуйте.
Подскажите, пожалуйста, как  с помощью vba удалить все строки, которые в столбце B содержат ячейки с #Н/Д
У меня есть такой код.

Но он почему то оставляет часть строк неудаленными.

Sub Эликсир()

Dim dd As Range

 For Each dd In Range("B2:B4000")
   If IsError(dd.Value) Then
     If CLng(dd.Value) = xlErrNA Then
       dd.Value = ""
     End If
     End If
   Next
 
Dim udrow As Long

 For udrow = 2 To 4000
   If Trim(Cells(udrow, 2)) = "" Then Rows(udrow).Delete
 Next

End Sub