how to avoid using loop in this case

[lubbamkt]

Hi all,

I am wondering if there are any ways out to do the following task instead of using loop to search each cell. This is a bit slow. Thanks
An sample file is attached.
sample.xls

    For a = Selection.Columns.Count To 9 Step -1
        If Selection.Cells(2, a) = "#N/A N/A" And Selection.Cells(3, a) = "#N/A N/A" Then
            Sheets("temp chart").Range(Selection.Cells(1, a), Selection.Cells(3, a)).ClearContents
        Else
        Exit For
        End If
    Next a