Thanks! It fit my requirements exactly!!

"Toppers" wrote:

lastrow = Cells(Rows.Count, "A").End(xlUp).Row ' will give last row in column A

Cells(lastrow + 1, "A") = Application.Sum(Range(Cells(2, "A"),
Cells(lastrow, "A")))


HTH

"lpdarspe" wrote:

I want to make a macro in excel that will go to the end of a data column and
do a summation of the data in the row immediately following the data.