Delete Entire Column Based on Cell Value

[arpanpanchal]

Hi Friends

I am using the below code to delete columns which contain specific value. However I have to run the same code multiple times to get the final result. Can you please advise what's wrong with this? Also, If I want to put 2 conditions one being "Gross" and other being "Semi-Gross", what will be the code?

Sub DeleteColumn()

Set MR = Range("A2:AV2")

For Each cell In MR
    If cell.Value = "Gross" Then cell.EntireColumn.Delete
Next
 
End Sub

Thanks a lot for your time and effort.