Satırları sıralı şekilde sütüna çeviren makro talebi

[darkvenue]

Merhabalar ekteki tabloda C-N sütununda bulunan kelimeleri soldan sağa sıralı şekilde A sütununda birleştirecek makroya ihtiyacım. Yardımlarınızı rica ederim. Teşekkürler.

 

[veyselemre]

Sub test()
    'B sütunu boş kalmalıdır.
    Dim rng As Range, r, say&
    Set rng = Range("C1").CurrentRegion
    If WorksheetFunction.CountA(rng) > 0 Then
        say = WorksheetFunction.CountA(rng)
        ReDim liste(1 To say, 1 To 1)
        say = 0
        For Each r In rng.SpecialCells(xlCellTypeConstants).Cells
            say = say + 1
            liste(say, 1) = Trim(r.Value)
        Next r
        Range("A1").Resize(say).Value = liste
    End If
End Sub

 

[darkvenue]

Sub test()
    'B sütunu boş kalmalıdır.
    Dim rng As Range, r, say&
    Set rng = Range("C1").CurrentRegion
    If WorksheetFunction.CountA(rng) > 0 Then
        say = WorksheetFunction.CountA(rng)
        ReDim liste(1 To say, 1 To 1)
        say = 0
        For Each r In rng.SpecialCells(xlCellTypeConstants).Cells
            say = say + 1
            liste(say, 1) = Trim(r.Value)
        Next r
        Range("A1").Resize(say).Value = liste
    End If
End Sub

Çok teşekkür ederim