[VBA]Supprimer toutes les cellules avec plus ou moins de 6 caractères

Bonjour je cherche une macro permettant de pouvoir supprimer les cellules ayant moins de 6 caractères (6 exclus) et plus de 7 caractères (7 exclus) avec déplacement des cellules sur leur gauche j'ai tenté un petit script qui ne fonctionne pas.

Ps: En plus si possible que la macro épargne la colonne A.

Merci

Sub zz()
xtx = Cellule.Value

If Len(xtx) <> 6 Then
Cells.Delete
End If
End Sub

Bonjour Mercure, le forum,

Un petit fichier représentatif avec le résultat attendu ?

Cordialement,

Sub zz()
For Each X In Range("B1:B20")
    If Len(X) <> 6 And Len(X) <> 7 Then
    X.Delete Shift:=xlToLeft
    End If
Next
End Sub

J'espère que c'est assez explicit

Ouisansdoute merci beaucoup