delete calculated columns

[lefty38]

I have a borrowed VBA Code that will delete columns that = NR ( =IF((K1=0),"NR",(K2/K1)) )
problem is when the cells shift after deleting ==> the code seems to skip over other NR fields


I have attached the code and a small sample of the excel sheet
column range can be from H3 to many columns
calculations are turned off until this practical script runs (to save time)

thank you for any help

Sub deleteNRcolumns()
Dim Rng As Range, cell As Range
'turn on Autocalc so the NR comlumns can be deleted
    Application.ScreenUpdating = True
       With Application
        .Calculation = xlAutomatic
        .MaxChange = 0.001

    Set Rng = Range("H3:CA3")
  
        For Each cell In Rng
            Select Case cell.Value
            Case Is = "NR"
                cell.EntireColumn.Delete
        End Select
    Next cell
    
      End With

							4		4	1		4
							4		4	1		4
							100%	NR	100%	100%	NR	100%	NR
Country	State	City	Mgr	Emp	ID	Comp	crs1	crs2	crs3	crs4	crs5	crs6	crs7
				fred	01
				wilma	02
				barny	03
				bam	04

<tbody>
</tbody>

 

[lefty38]

any help on message #9 ?

Is there a way to turn the ROW H3:CA3 (or how many columns wide from H3)
Code:
[H3:CA3] = [IF(H3:CA3="NR","",H3:CA3)]
to a hard coded "NR" (or percentage) ==> then delete the "NR" column(s)
then re-insert the "=IF((H1=0),"NR",(H2/H1))" back into H3 and the remaining row 3 columns?

or another solution?