I have a column with with numbered data in it. I need a macro to read column
A if it sees data it takes it and enters it in the blank cells below it,
until it comes across another cell in the column with data and then it starts
entering that in the empty cells below it. It needs to stop if there is no
data in column B associated with that row.

Any help would be great.

Thanks

I came across the need for this some while ago:--

Sub FillDownArea()
Dim cl As Range
For Each cl In Selection
cl.Select
If IsEmpty(ActiveCell) Then ActiveCell.Value = ActiveCell.Offset(-1, 0)
Next cl
End Sub

you need to select the area you need to apply this to.

hope this helps

somethinglikeant