Logik til noget udtrækning

Hvert element tilhører en overorden element.

Når jeg sætter dem sammen gør jeg sådan her

Dim i As Integer
    Dim endelse As Integer
    Dim count As Integer
    Dim Data As String
    count = Range("B1").Value + 2
    i = 1

Do While i < count
    If (i = 1) Then
    Data = Cells(i, 1).Value & "#"
    i = i + 1
    ElseIf (i = count) Then
    Data = Data & " " & Cells(i, 1).Value
    i = i + 1
    Else
    Data = Data & "" & Cells(i, 1).Value & "\ "
    i = i + 1
   
    End If
 
     
   
    Loop
    Cells(1, 3).Value = Data

Men når jeg kommer til næste kolonne, som er 5,1. Hvor min løkke stopper korrekt. Så vil jeg gerne læse hvor mange den indeholder ved, at jeg læser hvad tallet er sat til i den kolonne, hvor løkken stopper og så sætte den nye variabel, som count og kører løkken igen