Hier ist der Code dazu ;) 

Option Explicit
Dim Einsatzgebiet As Variant

Sub Aufbereiten()
On Error GoTo Err_Handler

Dim letzteZeile As Integer
Dim i As Integer
Dim n As Integer
Dim EinsatzgebietNr As Variant

'Tabellenblatt aktualisieren - per PowerQuery Abfrage hole ich aus Blatt1 und Blatt2 bestimmte Daten
   ActiveWorkbook.RefreshAll
    
   Application.ScreenUpdating = False
 
'Blatt Zusammen
With Tabelle4
'   Spalte B umbenennen
    .Range("B2").Value = "Einsatzgebiet"
    
'   Letzte Zeile in 1.Spalte von Blatt -Zusammen- ermitteln
    letzteZeile = .Range("A" & .Rows.Count).End(xlUp).Row
    
    i = letzteZeile
    n = 3                                          'Startzeile angeben
        
    For i = 1 To letzteZeile - 2                   '-2, weil das die Überschirften sind
        
      If IsNumeric(.Range("B" & n)) Then           'Nur wenn es eine Zahl ist
        EinsatzgebietNr = .Range("B" & n).Value
        
    '   Einsatzgebiet ermitteln
            LoseErmitteln EinsatzgebietNr
            .Range("B" & n).Value = Einsatzgebiet
      End If
      
        letzteZeile = letzteZeile - 1
        n = n + 1
    Next

End With
    
    Application.ScreenUpdating = True
            
Exit Sub
    
Err_Handler:
        MsgBox "Fehler in Sub: Aufbereiten" & vbCrLf & vbCrLf & Err.Number & " " & Err.Source & vbCrLf & Err.Description, , "Fehlermeldung"
        
End Sub


Sub LoseErmitteln(EinsatzgebietNr As Variant)

Dim letzteZeileLose As Integer
Dim i As Integer
Dim n As Integer

'Blatt Lengende Lose
With Tabelle2
    letzteZeileLose = .Range("A" & .Rows.Count).End(xlUp).Row
    
    i = letzteZeileLose
    n = 2                                          'Startzeile angeben
        
    For i = 1 To letzteZeileLose - 1                   '-2, weil das die Überschirften sind
        
        If EinsatzgebietNr = .Range("A" & n).Value Then
            Einsatzgebiet = .Range("B" & n).Value
            Exit Sub
        End If
       
        letzteZeileLose = letzteZeileLose - 1
      n = n + 1
    Next

End With

End Sub