might be quicker. If more than one, look in vba help for FIND and FINDNEXT.
Example shown

Sub looptillblank()
x = Columns(1).Find("").Address
MsgBox x
End Sub

--
Don Guillett
SalesAid Software

"McKCollins" wrote in message
...
I have two columns, A and B. Column A has data, column B contains a
formula.
I want the formula in column B to loop down the rows (ie: B1, B2, B3 etc)
until it reaches a blank in column A. I have tried Do Loop...While but I
cannot make the loop work.
Can anyone help with this?

Many thanks.

Collins