Turbo ersetzten?

guten morgen
wie kann ich diese 2 ersetzten vorgänge ,
die mit dem recorder aufgezeichnet wurden,
beschleunigen.

Privat Sub ersetzen_Klick()
 ' Ersetzen  "#wert" fehlermeldung
      Application.ScreenUpdating = False 
       Dim Bereich As Range
       Dim zelle
       Set Bereich = Range("E1:E10000")
       For Each zelle In Bereich
       If zelle.Text = "#WERT!" Then Range(zelle.Address) = ""
       Next
       
 ' Ersetzen der endung "mp3"
       Cells.Replace What:=".mp3", Replacement:="", LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
       ReplaceFormat:=False
      Application.ScreenUpdating = True
End Sub

Ich wäre auch noch sehr froh über ein paar tips,
wie man makros grundsätzlich schneller machen kann und was man beachten sollte!

Ivan