Copy active cells from one column as a sequence in another cell

[adihad]

Hello,

I am totaly new to VBA and guess I need to write a code for the problem.
I have two columns, say A and B. I need to copy value (text) from A only if B is active. The copy from all "active" cells in A shall be pasted in another cell on the same Sheet as a sequence, with ";" or "," between values.

So I was thinking something like this

Do While ActiveSheet.Cells(rw, x).Value <> ""
        rw = rw + 1
        if ActiveSheet.Cells(rw, x).Value <> ""
    # "Active Cell" Select A 
    Range("Active Cell").Select
    Selection.Copy
    Range("CellX").Select

etc...

I hope some of you understand what you mean.

Many Thanks!