Çalışmanıza bir buton ekleyin ve buton tıklanma olayına aşağıdaki kodu girin

Range("E:R").Select

    Range(Selection, Selection.End(xlDown)).Select

    Selection.Replace What:="", Replacement:="æ", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

    Selection.Replace What:="æ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

    Range("A1").Select

boş hücreleriniz düzenlenir ve formülünüz doğru sonuç döndürür.