Макрос для редактирования текста ячеек

[T_i_m_o_n]

Проблема заключаеться в чем:

Есть модель товара хххххх
Есть макрос , которий дописывает к каждой модели .jpg

Sub appendJPG()
Dim MyRange As Range
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Set MyRange = Range("A1:A" & lastrow)
For Each c In MyRange
If c.Value <> "" Then
c.Value = c.Value & ".jpg"
End If
Next
End Sub

Нужен макрос, который делал бы в одной ячейке что-то типа ххххх.jpg,xxxxx_1.jpg,xxxxx_2.jpg

Помогите плз.

[kuklp]

Sub appendJPG1()
    Dim a, b(), i&
    a = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Value
    ReDim b(1 To UBound(a))
    For i = 1 To UBound(a)
        b(i) = a(i, 1)
    Next
    [b1] = Join(b, ", ")
    Erase a: Erase b
End Sub

[T_i_m_o_n]

Спасибо)) работ.