Hi cruise.alter,

How about:

Cells(i, 8).ClearContents