Hi,

My objective is to have two columns of figures AJ & AK with totals at the bottom.

I have this piece of code which I run to total Column AK -

    lngCol = ActiveCell.Column
    lngLast = Cells(Rows.Count, lngCol).End(xlUp).Row
    Cells(lngLast + 1, lngCol).Value = WorksheetFunction.Sum(Range(Cells(2, lngCol), Cells(lngLast, lngCol)))
It works out where the last cell with data in is and then sums the column in the cell beneath the last cell with figures in it, the data currently ends at AK14373 and there is a sum in AK14374.

When it has done this calculation I want to move one cell to the left to AJ14374 and sum AJ14373 Upwards to AJ2.

I can't use the same formula because the data in column AJ ends at AJ13470 and it puts the formula in AJ13471.

The ranges change each month.

Thanks for any help.