Çözüldü Satırları Tek Hücrede Alt Alta Birleştirme

Sub Excel_Turkey()
    Dim basla%, sat%, yaz$
    basla = 2
    sat = 2
10    While Cells(basla, 2) <> ""
        yaz = yaz & Cells(basla, 2).Value & Chr(10)
        basla = basla + 1
    Wend
    If yaz = Empty Then GoTo 20
    Cells(sat, 3).Value = Left(yaz, Len(yaz) - 1)
    yaz = Empty
    sat = sat + 1
    basla = basla + 1
    GoTo 10
20
    Columns(2).Delete: Range("B1") = "MUADİL KOD"
    Columns("A:A").SpecialCells(4).Delete Shift:=xlUp
    yaz = vbNullString: sat = Empty: basla = Empty
End Sub