Making macros loop

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

One way:

Public Sub InsertFormula()
Const sFORMULA As String = "=SUM($A$1:A1)"
Range("A1:A" & Range("A" & Rows.Count).End( _
xlUp).Row).Offset(0, 1).Formula = sFORMULA
End Sub




In article <[email protected]>,
McKCollins <[email protected]> wrote:

> 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

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
[email protected]
"McKCollins" <[email protected]> wrote in message
news:[email protected]...
>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