Seeking assistance with ths code

Originally Posted by kmakjop

Thank you, i like your code; however the code you gve me deletes the cell if the "C" is added to the cell. I only want the delete to execute only if the cell <> 9 but if it is = 16 just add "C" to the cell and keep content.

Thanks again.

That's exactly what i tried to inform you about in my comment (which comes after an apostrophe).

Sub test()

Dim Cell As Range

For Each Cell In Worksheets("Sheet1").Range("A8", "A" & Rows.Count)
Select Case Len(Cell)

    Case Is = 16
    Cell.Value = "C" & Cell.Value
    
    Case Is <> 9
    Cell.Value = ""
    
    End Select
    
    Next Cell
    
End Sub