Op zoek naar een manier om tekst samen te voegen en daarna tekstrijen te verwijderen

[Jaleukhoor79]

Hoi Excelexperts,
Ik heb een afschuwelijk lelijke export ontvangen, deze bevat zo'n 70.000 rijen. In kolom A staat helaas niet altijd een getal, anders was het niet zo lastig natuurlijk
Ik wil de boel graag opruimen zodat in elke rij in kolom A het nummer staat en in kolom B wil ik alle teksten (met spatie ertussen) die bij dat nummer horen.
In de bijlage zie je een voorbeeld van hoe het nu is (rood) en hoe het moet worden (groen).
Ga ik dat met een formule voor elkaar krijgen? Of heb ik een macro nodig? Alvast dank voor je reactie!
Gr. Ruud
Bekijk bijlage voorbeeldje.xlsx

 

[VenA]

Met een macro

Sub VenA()
  Dim j As Long, t As Long, ar
  ar = Cells(1).CurrentRegion
  ReDim ar1(UBound(ar, 1), 1)
  For j = 1 To UBound(ar)
    If IsNumeric(ar(j, 1)) Then
      ar1(t, 0) = ar(j, 1)
      t = t + 1
     Else
        ar1(t - 1, 1) = Trim(ar1(t - 1, 1) & " " & ar(j, 1))
    End If
  Next j
  Cells(1, 11).Resize(UBound(ar), 2) = ar1
End Sub