Суммирование значении столбца в ячейке идущей за последней в столбце

[BROOKHUT]

Как написать макрос который определял бы последнюю строку в столбце G и выводил сумму этого столбца в ячейке ниже последней в этом столбце

нашел функцию lastincolumn, но она только возвращает значение в последней ячейке указанного столбца, а нужно чтобы определилась последняя ячейка в столбце G и перешла на нижнюю под ней и просуммировала значения этого столбца, в поиске по форуму не нашел подходящего решения для себя

нашел как найти последнюю строку в столбце
iLastRow& = Cells(ActiveSheet.Rows.Count, G).End(xlUp).Row
как написать чтобы активной ячейкой стала ячейка под найденной последней?

[SAS888]

Например, так:

Sub qq()
    Dim x As Long
    x = Cells(Rows.Count, "G").End(xlUp).Row
    Cells(x + 1, "G") = Application.Sum(Range("G1:G" & x))
End Sub

[BROOKHUT]

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

Например, так:

Sub qq()
    Dim x As Long
    x = Cells(Rows.Count, "G").End(xlUp).Row
    Cells(x + 1, "G") = Application.Sum(Range("G1:G" & x))
End Sub

спасибо большое
правда если нажать 2 и более раз, он считает дальше вниз суммируя предыдущую сумму, но в моём случае это не критично )))

[Татьяна Лы]

Подскажите пожалуйста какой нужно изменить параметр в excel может быть там какая-то другая проблема.
Я не могу сделать ни одну операцию в excel с цифрами, ни изменить формат ячейки ни суммировать. При суммировании оно дает 0. И даже если цифры скопировать в другую книгу excel тоже самое.

[BROOKHUT]

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

Например, так:

Sub qq()
    Dim x As Long
    x = Cells(Rows.Count, "G").End(xlUp).Row
    Cells(x + 1, "G") = Application.Sum(Range("G1:G" & x))
End Sub

у экономиста пошли новые волны прихоти, вот не много доработал, но не получается сделать активную ячейку справа от последней в столбце J, чтобы посчитать сумму столбцов I и J

Sub qq()
    Dim x, a, b, nextCol As Long
    
    x = Cells(Rows.Count, "G").End(xlUp).Row
    Cells(x + 1, "G") = Application.Sum(Range("G2:G" & x))
    a = Cells(Rows.Count, "I").End(xlUp).Row
    Cells(x + 1, "I") = Application.Sum(Range("I2:I" & a))
    b = Cells(Rows.Count, "J").End(xlUp).Row
    Cells(x + 1, "J") = Application.Sum(Range("J2:J" & b))
    nextCol = Range("A65536").End(xlUp).Row + 1
    Cells(nextCol, 11) = "=SUM(RC[-2]:RC[-1])"

    
End Sub

всё разобрался как сделать =)