Clean the row if column B to O is empty

[parscon]

I need a VBA that check each row from column B to Column O and if cannot find any data clean that row
just it is important i need clean the content of that row not delete it.

Thank you for your big help.

[mancubus]

i assume you want to clear data in Columns A, P, Q, R....




Sub ClearContentsBasedOnCondition()

Dim i As Long
With Worksheets("Sheet1") 'change worksheet name to suit
For i = 2 To .Cells.Find("*", , , , xlByRows, xlPrevious).Row
If Application.CountA(.Range("B" & i & ":O" & i)) = 0 Then .Rows(i).ClearContents
Next
End With
End Sub

[parscon]

Dear mancubus, thank you very much , really you saved my time.

[mancubus]

you are welcome.

thanks for the feedback.