I don't know if this is any faster but try. UN tested
Sub Delete_Rows_With_Error_Russell_Adjust()
Dim DeleteValue As String
with Sheets("HotList").range("bj13:bj3000")
DeleteValue = "#N/A"
.AutoFilter Field:=1, Criteria1:=DeleteValue
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub