Find last empty row

[poppy]

Hi

I made a mess of my last post, but here goes.

I would like to be able to find the last empty row in a worksheet ski
one row and then sum up the totals of each column in this row.

I hope this is clearer than my last post
Thanx for your help

Kind Regard

 

[Nigel]

The following inserts a formula in the last empty row of a column and sums
all values.
You can adpat this for the column, range etc as required

Dim lastrow As Long
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Cells(lastrow + 1, 1).Formula = "=sum(A1:A" & lastrow & ")"


Cheers
Nigel

 

[Chris.F]

Have you thought about putting the totals at the top of your data rather
than at the bottom. Then the formula can sum right down to 65000 if you
want, and no need for a macro at all.

Chris

 

[Dave Peterson]

When I put the totals at the top, I'll also use the =subtotal() function. Then
when I apply data|Filter|autofilter, I get to see the subtotals for the visible
rows.