I'm really struggling with this as I have no idea what your data looks like,
and so I am struggling to understand what needs to be done.

Why don't you mail your workbook direct to me at
bob . phillips @ tiscali . co . uk (without the spaces)
and I will try and sort it.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"NewMacro " wrote in message
...
Let's try this again.

Do
iFirst = ActiveCell.Column
ActiveCell.FormulaR1C1 = "=SUM(RC" & iFirst & ":RC" & iLast & ")"
ActiveCell.Offset(1, -9).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(-1, 0).Range("A1").Select
Selection.End(xlToRight).Select
ActiveCell.FormulaR1C1 = "=SUM(RC" & iFirst & ":RC" & iLast & ")"
Loop Until IsEmpty(ActiveCell.Offset(0, 1))
End Sub

That's the correct code that gives me the previous results.
I guess I didn't know I had to set the iLast. How is it done? We are
fast approaching my knowledge base limit!! :(

Thanks for your help.


---
Message posted from http://www.ExcelForum.com/