Copy a cell to another cell and continue up to empty cell

Hi Guys

Is there anybody to help me?
I need a macro to distinguish whether cell A1 is not empty and then copy it to B1 and continue it (A2 to B2) up to Ai which is the empty cell.

Tanks
HME

hi
No answer?

I nee it, Please somebody help I can not work with:IF,End If,For,Next properly.I need a macro to distinguish Ai is not empty (i=1 to next i) and copy Ai to Bi up to empty Ai.

thanks a lot
hme

I'm really just a beginner, but the following code seems to work for your problem:

Sub helpfulcode
Dim cell As Range, rng As Range
Set rng = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
For Each cell In rng
cell.Offset(0, 1) = cell.Value
Next cell
End Sub

Hope that helps.

Regards,
Manuel