Try

With Sheet1
.Range("C10").FormulaArray = "your formula"
.Range("C10:C70").FillDown
.Range("C10:G70").FillRight
End With



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"dorre" wrote in message
...
Chip - if I might be allowed a followup question. The code you
suggested works wonderfully.

With Sheet1

.Range("C10").FormulaArray =
"=SUM(LARGE((A$10:A$70=A10)*...etc ..."

.Range("C10:C70").FillDown
End With

But... I need to use it in columns C, F, I... . I can use
.Offset(0,3) before the .FormulaArray and the .FillDown, but is
it easy to also offset the formula in quotes?

(to "=SUM(LARGE((D$10:D$70=D10)*...etc ..." ), then
G$10:G$70... etc.

Thanks, Dorre