I have a list of keywords with names:
Something one
Something two
Something2 one
Something2 two
Something2 three

I need to put keywords to one cell but for every group i need new
cell.
I have something like this:

Sub CosTam()
IleSlow = Worksheets("to").Range("G1").Value
Pierwsza = 1
Druga = 0

Sheets("to").Select

For I = 1 To IleSlow
Roznica = Worksheets("to").Range("G" & I).Value
Druga = Druga + Roznica
Sheets("to").Range("C" & Pierwsza & ":C" & Druga).Select

For Each S In Selection
New_value = New_value & S.Value & ","
S.Value = ""
Next S
Worksheets("to").Range("H" & I).Value = New_value

Pierwsza = Pierwsza + Druga
Next I

End Sub

Its working, but only for first group. Then its not changing Nev_value
and pasting x times same thing.
If any one can halp me, that will be great.

Thanx