Clear contents of all cells in a row except 1 column

[brianfosterblack]

I have a macro which steps through each row in column from E3 downwards. If it finds an entry (Text or number or date) in this column I then need a process to run to clear all the contents in that row except for column F which contains a formula. I do not want to delete the row - just clear its contents.
I am not sure if it is easier to clear contents for the entire row as only columns A to G have data in them in the worksheet.
Can anyone help I have looked for a solution but they all seem to delete the row

 

[JEC]

For example, not clearing the entire row

Sub jec()
 For Each it In Range("E3", Cells(Rows.Count, 5).End(xlUp))
   If it.Value <> "" Then Union(it.Offset(, -4).Resize(, 5), it.Offset(, 2)).ClearContents
 Next
End Sub

 

[brianfosterblack]

Thanks JEC. This works perfectly and so much faster than my clumsy code. Thank you so much

 

[JEC]

You're welcome!