Copy column 2 + columns y when there is information

i plot an x/y map in my rows (8) and columns (49);

I want to get a list that has the information from column 2 and add to the information of all other columns (when there is a value in the cell)
Ex:

column 2 COLU 3 COLUMN 4
A 21
B 22
C 21 22

THEN I WANT TO HAVE PASTE SOMEWHERE DOWN:

A21
C21
B22
C22

This is what I've done so far (a little messed up too)... any suggestion in how to make it happen?

'Starting Row
x = 2
y = 3
Z = 10

For Each Cells(x, y).Value <> ""
Cells(Z, 2).Value = Cells(x, 2).Value + "" + Cells(x, y).Value

x = x + 1
y = y + 1
Z = Z + 1

Loop

y = y + 1

End Sub