I need a macro that will look down column B and when it finds a
number, move that number to the corresponding cell in column A, then
copy this down until it finds a blank in column B.

I've tried to layout an example below:

A B C D

1 TEXT

2 TEXT

3 123

4 TEXT AGAIN

5 TEXT AGAIN

6

7 987

8 MORE TEXT

9 MORE TEXT


after the macro runs I want the following result:

A B C D

1 TEXT

2 TEXT

3 123

4 123 TEXT AGAIN

5 123 TEXT AGAIN

6

7 987

8 987 MORE TEXT

9 987 MORE TEXT


Sub MoveIt()
msg = "Don't forget to put a '* Total' at the foot of the column"
If MsgBox(msg, vbOKCancel, "Reminder..") = 2 Then Exit Sub
Do While ActiveCell < "'* Total"
With ActiveCell
' PLACE YOUR CODE IN HERE
End With
Loop
End Sub

My problem is, I have no idea what code to place in the ' PLACE YOUR
CODE IN HERE area!

Any help much appreciated.