[Macro] Eliminar celdas caracteres menor que

Buenas tengo una preguntilla sencillita sobre una macro que estoy realizando.
Necesito que en la columna telefono1 me ponga como blanco 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
Muchas gracias