Loop to test if cell not empty then move value to next column?

[hazmat]

Looking for code help to loop through A1:A10, and if A is Not Empty, the value of A will be moved over 1 column, to B.
Existing Data In B cannot be disturbed. The Data in Column A is being generated by a Formula.

I have the following code for the 1st 3 cells, but just don't have the knowledge to create a loop for the whole range of cells (Which will ultimately be AE8:AE157 values moved to AF8:AF157, respectively).
Been searching for hours with no luck. Thanks for any help.

Private Sub DataTransfer()

If Not IsEmpty(Range("a1").Value) Then
Range("B1").Value = Range("A1").Value
Range("A1").Clear
End If

If Not IsEmpty(Range("a2").Value) Then
Range("B2").Value = Range("A2").Value
Range("A2").Clear
End If

If Not IsEmpty(Range("a3").Value) Then
Range("B3").Value = Range("A3").Value
Range("A3").Clear
End If

End Sub

From:

To This:

 

[hazmat]

The values copied across are formatted as text.

Insert one more line.

            With c
                .NumberFormat = "@"
                .HorizontalAlignment = xlRight    '<---- Insert this line
                .Value = Format(c.Offset(, -1).Value, "d-mmm")
                .Offset(, -1).ClearContents
            End With

Can the values copied across be formatted as date?
The B Column cells are originally formatted as that style of date

 

[jolivanes]

Comment (put an apostrophe in front) or delete first two lines.

            With c
'                .NumberFormat = "@"    '<----Comment or remove
'                .HorizontalAlignment = xlRight    '<----Comment or remove
                .Value = Format(c.Offset(, -1).Value, "d-mmm")
                .Offset(, -1).ClearContents
            End With

 

[hazmat]

@jolivanes
Thanks for all the help. Code now works exactly how I wanted.
Tomorrow I'll have to dissect your code to understand what it is actually doing, and maybe learn something, lol
Thanks again!

 

[jolivanes]

Thanks for the update and good luck.
The code is pretty simple (otherwise I would not have been able to put it together!!!), so you should have no problem figuring it out.