Does this help you?
Sub fillme()
Dim CELLORI As RangeDim CELLREF As Range
For Each CELLORI In Tabelle2.Range("B2:B999999")
If CELLORI.Text = "" And CELLORI.Offset(0, -1).Text = "" Then
Exit For
Else
For Each CELLREF In Tabelle1.Range("B2:B999999")
If CELLREF.Offset(0, -1).Text = Empty Then
Exit For
End If
If CELLREF.Text = CELLORI.Text Then
CELLORI.Value = CELLREF.Offset(0, 2).Text
CELLORI.Offset(0, 1).Value = CELLREF.Offset(0, 3).Text
CELLORI.Offset(0, 2).Value = CELLREF.Offset(0, 1).Text & " " & CELLREF.Offset(0, 4).Text
Exit For
End If
Next CELLREF
End If
Next CELLORI
End Sub