VBA Eliminar caracteres de una celda dependiendo del numero de caracteres

¿Cuántos datos tienes?

Prueba con esta macro:

Sub EliminarCelda()
  Dim a As Variant, b As Variant
  Dim i As Long, j As Long
  a = Range("AZ1", Range("AZ" & Rows.Count).End(3)).Value2
  ReDim b(1 To UBound(a), 1 To 1)
  For i = 1 To UBound(a)
    If Len(a(i, 1)) > 5 Then
      j = j + 1
      b(j, 1) = a(i, 1)
    End If
  Next
  Range("AZ1").Resize(UBound(b)).Value = b
End Sub

Acá tienes ejemplos para trabajar con cadenas de caracteres

https://www.youtube.com/playlist?list=PLdK9H5dMIfQhE67SvbFMqsAXDaDTpN4uY

https://www.youtube.com/watch?v=25Yyv-tNgug&list=PLdK9H5dMIfQiz99T-5wsxbEIHpi1s7s6S 

Fíjate en ese ejemplo se determina la cantidad de caracteres para dar el nombre a un archivo es lo mismo que necesitas

cantidadCaracteres=Len(range("A1"))

Con el código anteriores determinas el largo de la cadena de caracteres del contenido en A1

Puedes poner

If cantidadCaracteres>=5 then range("A1").clear

Con el código anterior si la cadena de caracteres es mayor o = 5 borra el contenido de A1.