Zellen mit vba verketten bis Bedingung eintritt

Hallo,

ich habe folgende Excel Tabelle und komme da nicht mehr weiter.

Spalte A.......Spalte B..........Spalte C

1234............A-Text1
A-Text2
A-Text3
5678............B-Text1
B-Text2

Jetzt muss ich in Spalte C den Inhalt von Spalte B in eine Zelle einfügen bis in Spalte A der Wert > " " ist

Wenn ein neuer Wert in Spalte A erscheint, muss er die Werte B-Text1 und B-Text2 in Spalte 4 verketten.

Den Teil zum einfügen der Daten hab ich aber die Schleife bis zur Bedingung will mir nicht in den Kopf.

Wert = Cells(1, 2).Value & Chr(10) & Cells(2.2).Value
Cells(1, 3).Value = Wert

Hat jemand eine Idee ?

Public Sub Test1()
  Dim Zeile As Integer
  Dim I As Integer, Awert As String, Bwert As String, Cwert As String
  Dim Crange As Range: Set Crange = Nothing
  Zeile = 0
  Do
    Zeile = Zeile + 1
    Awert = Range("A" & Zeile)  
    Bwert = Range("B" & Zeile)  
    If Awert <> "" Then  
      Set Crange = Range("C" & Zeile)  
      Crange.Value = Bwert
    Else
      If Bwert <> "" Then  
        Cwert = Crange.Value
        Crange.Value = Cwert & Chr(10) & Bwert
      Else
        Exit Do
      End If
    End If
  Loop
End Sub