Copy a formula to cells in column A which don't have an empty cell in column B

**floep** · 10-23-2006, 07:17 AM

Hi Guys,

Here is my problem. I want to copy a formula to all the cells in column A which don't have an empty cell in column B. Now I just copy the formula to all the cells in column A and I do a cleanup after it, which is very, very messy

Here is the formula I use right now for copying the formula. Can somebody help me with it please ?

Range("A5").Select
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(""S "",RC[6],"" "",RC[10],"" "",text(RC[12],""000""),"" "",RC[14],"" "",RC[15],"" "",text(RC[17],""0000""),RC[19])"
Range("A5").Select
Selection.AutoFill Destination:=Range("A5:A65000"), Type:=xlFillDefault
Range("A5:A65000").Select