Loop to clear cell contents by column (but not entire column)

Originally Posted by LeoTaxi

Sub test()
For x = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
    If Cells(1, x) = "Good" Then Cells(1, x).Resize(3).ClearContents
Next
End Sub

Kind regards
Leo

Thanks! I adjusted it a bit to better suit my needs but it works!