Sub Macro1()
With ActiveSheet.UsedRange
.Value = .Value
.Replace What:="#N/A", _
Replacement:="", _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
MatchCase:=True, _
SearchFormat:=False, _
ReplaceFormat:=False
End With
End Sub