[Macro] Eliminar celdas caracteres menor que

Buenas chic@s, tengo que hacer una macro con las siguientes condiciones:
Necesito que en la columna telefono1 me ponga una 'S' en aquellas celdas que contengan un menor de 8 caracteres ejemplo "PPPP", "PPP PP", "344 2 2". Todo lo que tenga menor de 8 caracteres. Tengo echa ya la seleccion de la columna entera solo faltaria meter la regla.
Public Sub TITULAR1()
Cells.Find(What:="Titular1", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(1, 0).Select
Range(Selection, Selection.End(xlDown)).Select
end sub
Saludos y gracias por las molestias