Spojení textových řetězců v Excel – Visual Basic – Fórum – Programujte.com

Dobrý den,
prosím Vás o radu,
Ve VBA se pokouším spojit textové řetězce, které jsou v jednotlivých sloupcích pod sebou. Řetězce, které chci spojit jsou odděleny prázdnými řádky (jedním nebo více).
Dalo by se aplikovat dvojí použítí funkce do while nebo do until?
Nevím si s tím rady, děkuji za odpověď.

tak jsem to zkoušel, ale nechce se mu slučovat radky, ktere jsou pod sebou..
Sub slouceni_radku()
'makro na slouceni radku
'makro by melo vyhledat radek (C), ktery neni prazdny,_
'po vyhledani neprazdneho radku skocit do slupce B_
'nasledne sloucit radky ve sloupci B od rady(C) az po_
'posledni neprazdny radek a vysledek zapsat do radku (C)_
'a vedlejsiho sloupce (tedy vedle 1 slucovanou hodnotu)
'porad mi to nechce slucovat nasledujici radky,_
'prosim kde je chyba?

Dim A, B, C, D, E, F As Integer

Dim Hodnota
Sheets("list1").Select

A = 1
C = 1
D = 0
E = 0

Hodnota = Cells(C, 1)
vysledek = Cells(C, 3)
For B = 1 To 6000
Hodnota = Cells(C, 1)
If Hodnota <> "" Then
For D = 1 To 10
vysledek = Cells(C + E, 2)
If vysledek <> "" Then
vysledek = vysledek & ", " & Cells(C + E, 2)
Else
Cells(C, 1).Select
E = E + 1
End If
Cells(C, 3) = vysledek
Next D
Else
Rows(C).Select
C = C + 1
'MsgBox Hodnota & "false"
End If
Next B

End Sub

jasný že jo , smyčka
načtení buňky,test prázdnosti, případné sečtení
já myslím že na načítání z excelu jsem odpovídal o nějaké vlákno níž