Прибавление данніх из двух столбцов

[gavrylyuk]

Возникла задача прибавить к данным столбца М (начиная с 74 ячейки) прибавить данные столбца N (начиная с 10 ячейки). Я написал код
Sub msain()
Dim i As Long, summa As Double, x As Double, j As Long
Application.ScreenUpdating = False
For i = 74 To Cells(Rows.Count, "A").End(xlUp).Row
summa = Cells(i, "M")
For j = 10 To Cells(Rows.Count, "A").End(xlUp).Row
Cells(i, "M") = summa + Cells(j, "N")
Next
Next
End Sub

Но он неправильно считает. Помогите его пожалуйста подправить.
Спасибо

[IgorGO]

судя по заданию - требуется к ячейкам столбца М, начиная с 74 строки, добавить содержимое ячеек из столбца N (начиная с 10 ячейки).

А в коде к ячейке столбца М энное количество раз прибавляется ее собственное значение + сумма энного числа ячеек из столбца N.

Если вернуться к первой задаче код должен быть таким:
Sub msain()
Dim i As Long, summa As Double, x As Double, j As Long
Application.ScreenUpdating = False
For i = 74 To Cells(Rows.Count, "A").End(xlUp).Row
Cells(i, "M") = Cells(i, "M") + Cells(i-64, "N")
Next
End Sub

Есть тут еще один источник проблемы - определение количества обрабатываемых ячеек: Cells(Rows.Count, "A").End(xlUp).Row
Данные обрабатываем в колонке М, а сколько их есть определяем по колонке А. Возможно, все так задумано, но мне кажется это не логично.

[gavrylyuk]

Спасибо большое, все получилось!!!

[дмидми]

Проще и быстрее

Option Explicit

Sub gavrylyuk()
    Const START_M = "M74"
    Const START_N = "N10"
    
    Range(Range(START_N), _
        Cells(Cells(Rows.Count, "A").End(xlUp).Row, "N")).Copy
    Range(START_M).PasteSpecial xlPasteValues, _
        xlPasteSpecialOperationAdd
    Application.CutCopyMode = False
End Sub