Find last used row and insert total

[Delindan]

I have created a spreadsheet by exporting from Access to Excel and now have been trying to clean it up by inserting totals at the bottom of the exported columns. I'm trying to find out 2 things: how to find the last row of data and how to insert the excel =sum() function. Can anyone help?

Thanks!

 

[SkipVought]

    With xlApp.Worksheets(1)
        .Cells(introw + 2, 5).Formula = "=SUM(F2:" & .Cells(introw, 5).Address(False, False) & ")"
    End With

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[Delindan]

This works without errors! The equation looks correct in the spreadsheet as well. Interestingly, it is giving me a different sum number than if I manually put in the equation. The manual sum is 310 and the number it gives is 428. Doesn't seem to be an obvious reason. I'll look at it more. Thanks

 

[Delindan]

Ok...figured it out and modified where necessary. Thanks for all the help!