Как просуммировать столбец с неизвестным количеством строк?

[vpm]

Макросом в EXEL затягиваю DBF-ку с заранее неизвестным числом строк.
В этом макросе нужно добавить в конец итоговую строку, просуммировав значения в заданных столбцах.
Подскажите, пожалуйста.

[SAS888]

Например, для 1-го столбца активного листа, начиная с 1-й строки:

Dim i As Long: i = Cells(Rows.Count, 1).End(xlUp).Row
Cells(i + 1, 1) = Application.Sum(Range([A1], Cells(i, 1)))

В результате, в столбце "A" после последней заполненной ячейкой будет вставлена сумма ячеек этого столбца.
Если же требуется суммы нужных столбцов поместить в одной строке, которая находится ниже самого "длинного" столбца, то значение переменной i следует вычислять так:

i = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row

[vpm]

Большое спасибо!