Yep, I gotcha. I was working on getting some code for you but I had to reboot. Anywho, this is what I used to count the number of cells and enter a formula.

Code:
objExcel.Sheets("Sheet1").Select
   Rows = objExcel.ActiveSheet.UsedRange.Rows.Count
Print Rows

objExcel.ActiveCell.Formula = "=SUM(C1:C10)"
his just gives you something to start with, I haven't tested it. Give me a few minutes and I can post some working code...