Ciao Non ti scoraggiare.

Prova a fare un banale ciclo do come il listata seguente.

Dim Simbolo As Variant
Dim iCella_Simbolo As Long
iCella_Simbolo = 1
Do
Simbolo = Worksheets("Foglio1").Range("a" & iCella_Simbolo).Text
If Simbolo = "" Then
Worksheets("Foglio1").Range("A" & iCella_Simbolo) = ""
End If
iCella_Simbolo = iCella_Simbolo + 1
Loop While Worksheets("Foglio1").Range("a" & iCella_Simbolo).Text <> ""


Ti assicuro che funziona