макрос для подсчета суммы

[Olya1985]

Подскажите, пожалуйста, как мне изменить макрос, чтобы подсчитывалась итоговая сумма всех строк с суммами, расположенными в колонке H (с учетом того, что число строк может быть всегда разным), и нужно чтобы сумма выводилась в строке, следующей за последней заполненной ячейкой с суммой, а в столбце A чтобы вставлялась фраза итог.

Range("H152").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-150]C:R[-1]C)"
Range("A152").Select
ActiveCell.FormulaR1C1 = "Итог:"
Range("G160").Select
ActiveWindow.SmallScroll Down:=-12
End Sub

[EducatedFool]

Sub test()
    Dim ПоследняяЯчейка As Range: Set ПоследняяЯчейка = Range("H65536").End(xlUp).Offset(1)
    ПоследняяЯчейка.FormulaR1C1 = "=SUM(R1C:R[-1]C)"
    ПоследняяЯчейка.EntireRow.Cells(1) = "Итог:"
End Sub

[Olya1985]

а как можно добавить границы для этой строки с суммой?

[Olya1985]

а также выделить жирным и изменить шрифт для Итог и Общей суммы?

[R Dmitry]

Сообщение от Olya1985

а также выделить жирным и изменить шрифт для Итог и Общей суммы?

Sub test()
Dim ПоследняяЯчейка As Range: Set ПоследняяЯчейка = Range("H65536").End(xlUp).Offset(1)
ПоследняяЯчейка.FormulaR1C1 = "=SUM(R1C:R[-1]C)"
ПоследняяЯчейка.EntireRow.Cells(1) = "Итог:"
With ПоследняяЯчейка.EntireRow.Range(Cel ls(1), Cells(8))
.Font.Size = 14
.Font.Bold = True
.Borders.LineStyle = xlContinuous
.Borders.Weight = xlMedium
End With

End Sub

[Olya1985]

Спасибо! ....

[vikttur]

Может, ну его, этот макрос?
Если итоговые строки чем-то выделяются (например, слово "сумма"):

=СУММЕСЛИ(F5:F10000;"сумма";H5:H10000)

[Olya1985]

подскажите как сделать так, чтобы эта сумма из последней ячейки вписывалась в Worksheets("Body").Cells(30, 1) и для каждого номера из Worksheets("receivables").Cells(i, 3) проставлялась своя сумма при рассылке письма. Это макрос для рассылки почты с вложением. сумма подсчитывается в этом вложении и ее нужно вставить в текст самого письма. образец прикрепляю.