Sum - to end
Hi,
These couple of lines put a sum formula in the first cell below the data in
column A
Dim LastRow As Long
LastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row
Cells(LastRow + 1, 1).Formula = "=sum(A1:A" & LastRow & ")"
--
Mike
When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.
"Annette" wrote:
Since I don't always know how many rows I will have in a spreadsheet, I
would like a macro that if I run the macros on a specific column, it
automatically takes me to the end the filled column and drop down one more
row to a blank cell and adds the entire column.
My macro is cell specific using recorder and I don't want that.
Thanks much for assistance!
.
|