ClearContents change to my macro

I need help to make a small change to what cells get deleted. If someone could kindly assist.

Using the sample Excel sheet image I uploaded, the macro finds the number entered in cell A1. The first find is in cell A34, after it writes I need only cell B34 contents cleared (right now it clears B34/C34/D34). In the second example an 8 is also found in cell D20, after the write the macro deletes the contents in cells E20/F20/G20 and that’s perfect.
Thanks in advance for your help.

Please Login or Register  to view this content.

EXCEL HELP FORUMN - nov 20.JPEG

Hi

I have uploaded my Excel sheet for your review.

Hi

The operation is fine it's the following lines(at least I think) that need to be changed so that only the contents in column B get deleted and not the current B/C/D.

'---- This clears the B/EFG/IJK columns after using the value ----
If cell.Column = 1 Then cell.Offset(0, 1).ClearContents
If cell.Column > 1 Then cell.Offset(0, 1).Resize(1, 3).ClearContents

It's so frustrating that it only does it on my workbook. Do you know if there is something I can can do to check the cells/file/workbook?

Latest update: code now works the way it should, how can that be?