Macro eliminar filas con valor

Tengo esta macro que me elimina las filas cuando el valor es

#N/D, pero me ha dejado de funcionar cuando el valor es #CALC! Me podéis echar una mano.

Muchas gracias.

Sub Borrar_Filas()

Dim ultifila As Integer
'guardo la última fila utilizada en la col A
ultifila = Range("A65536").End(xlUp).Row
'ajustar rango de inicio
ActiveSheet.Range("C1").Select
While ActiveCell.Row <= ultifila
If ActiveCell.Value = "" Then
ActiveCell.EntireRow.Delete
ultifila = ultifila - 1
Else
ActiveCell.Offset(1, 0).Select
End If
Wend

End Sub