Объединение значений ячеек в одну ячейку

[Vitalll]

Добрый день!
Есть список компаний, их адреса и коды компаний в трех столбцах соответственно. Нужно коды компаний
из третьего столбца записать в одну ячейку через запятую(например А16). Получается записать только в строку, а если в одну ячейку, то она заменяется каждый раз и оставляет только последнее значение. Как это можно сделать?
Код макроса:

Sub Test()
Dim st As String

For i = 2 To 21
st = Sheets("Лист1").Cells(i, 3).Value
Sheets("Лист1").Cells(16, i - 1) = st & ","
'Sheets("Лист1").Cells(17, 1) = st & ","
Next i

End Sub

[Aleksandr H.]

Sub Test()
Dim st As String
st = ""
For i = 2 To 21
st = st & Sheets("Лист1").Cells(i, 3).Value
Next i
Sheets("Лист1").Cells(16, i - 1) = st & ","
End Sub

[IgorGO]

Sub ВащеTest()
  Cells(16, 1) = Join(WorksheetFunction.Transpose(Cells(2, 3).Resize(13, 1).Value), ", ")
End Sub

[Казанский]

кросс http://www.cyberforum.ru/vba/thread1663201.html

[Vitalll]

Сообщение от IgorGO

Sub ВащеTest()
  Cells(16, 1) = Join(WorksheetFunction.Transpose(Cells(2, 3).Resize(13, 1).Value), ", ")
End Sub

Да,спасибо, работает)

[Vitalll]

Сообщение от Казанский

кросс http://www.cyberforum.ru/vba/thread1663201.html

Спасибо, уже увидел)