VBA формула не работает хорошо

Question

я буду программировать следующую формулу в VBA

ActiveSheet.Cells(ActiveCell.Row, 1).Select 
ActiveCell.Offset(0, 7).Select 

With ActiveCell 
.formula = "=SUM(" & .Offset(1, 0).Address(0, 0) & ":" & _ 
.End(xlDown).Offset(0, 0).Address(0, 0) & ")" 
End With 

и его вызывает у меня некоторые проблемы, потому что если я запустить макрос один раз он просто занимает 1 строку в формуле: = SUM (H11: H11), но если я запускаю его дважды, он отлично работает, беря в сумме все значения до первой пустой ячейки на листе.

Можете ли вы помочь мне улучшить мой макрос, чтобы он работал правильно с первого запуска?

Благодарим Вас за внимание и заранее

наилучшими пожеланиями, Sergio

Answer 1

Попробуйте это:

With ActiveCell 
    lastrow = Cells(Rows.Count, .Column).End(xlUp).Row 
    .Formula = "=SUM(" & .Offset(1, 0).Address & ":" & Cells(lastrow, .Column).Address & ")" 
End With 

Answer 2

Это то, что вы пытаетесь?

With ActiveCell 
    .Formula = "=SUM(" & _ 
        .Offset(1, 0).Address & ":" & _ 
        .Offset(1, 0).End(xlDown).Address & _ 
        ")" 
End With 

BTW INTERESTING READ