Boa tarde!!

Você pode fazer isso, de várias forma, porque não usa o Gravador de Macros???
Tente o gravar uma macro com filtro, ou algo do tipo

Sub Teste() 
    Dim rngTemp As Range 
    Dim intCounter As Integer 
      last used cell in the column
    For Each rngTemp In Range("a1", Range("a" & Rows.Count).End(xlUp)) 
         
        If rngTemp = "#N/D" Then intCounter = intCounter + 1 
         
    Next rngTemp 
    MsgBox "Contém " & intCounter & " células igual a #N/D" 
End Sub 

Att

Por que ele não identifica a quantidade de células com este erro. Deve ter alguma forma de contar sem ser manual.

=CONT.SE(A1:A20;#N/D) => nesse A1:20 é o seu intervalo

usando essa função acredito que dê certo!!!

Não sei se entendi mas tente:
If IsError(Range("e" & x)) Then soma = soma + 1

Boa noite!!

Tentou minha sugestão, eu havia editado o tópico de minha replica.

Sub FiltrarContarAleVBA()
    With ActiveSheet
        Set rnData = .UsedRange
        With rnData
            .AutoFilter Field:=3, Criteria1:="#N/A" 'como meu excel é ingles altere para #N/D
            .Select
            For Each rngarea In .SpecialCells(xlCellTypeVisible).Areas
                lcount = lcount + rngarea.Rows.Count
            Next
            MsgBox "Os dados filtrados tem " & lcount - 1 & " unidades"
        End With
    End With
     
End Sub

Reinaldo meu amigo você é fera demais!!!

Grato a todos que se envolveram na solução!!

Abraços!

Fui...