Office: (Office 2013) Code optimiertung - schleife mit if verknüpfungen (Excel-Makro)

Hallo alle zusammen,

Ich bräuchte etwas Hilfe, um den Code zu optimieren, zur Zeit läuft das Makro 15 minuten, zum größten Teil dieser Code-Ausschnitt:

Code:

For i = 1 To 3000
    
            .Cells((1 + i), 4) = Left(.Cells((1 + i), 4), 5)
            
            If .Cells((1 + i), 4) = "INSTA" Then
                .Cells((1 + i), 4) = "Com"
    
            ElseIf .Cells((1 + i), 4) = "POWER" Or .Cells((1 + i), 4) = "Power" Then
                .Cells((1 + i), 4) = "Dyno"
    
            ElseIf .Cells((1 + i), 4) = "Power" Then
                .Cells((1 + i), 4) = "Dyno"
    
            ElseIf .Cells((1 + i), 4) = "EMISS" Then
                .Cells((1 + i), 4) = "Emis/Analyzer"
    
            ElseIf .Cells((1 + i), 4) = "SAFET" Or .Cells((1 + i), 4) = "F5 Fu" _
                Or .Cells((1 + i), 4) = "BUILD" Or .Cells((1 + i), 4) = "CME F" Then
                .Cells((1 + i), 4) = "Facility"
    
            ElseIf .Cells((1 + i), 4) = "FUEL " Then
                .Cells((1 + i), 4) = "M-Pro"
    
            ElseIf .Cells((1 + i), 4) = "PROJE" Or .Cells((1 + i), 4) = "Proje" _
                Or .Cells((1 + i), 4) = "Risk " Or .Cells((1 + i), 4) = "TIMIN" Then
                .Cells((1 + i), 4) = "PM"
                
            ElseIf .Cells((1 + i), 4) = "SBI/A" Then
                .Cells((1 + i), 4) = "e-storage"
            
            Else
                .Cells((1 + i), 4) = "Misc"
            End If
            
        Next i

Danke im Voraus für jede Antwort,
MfG,
Dominik