Hi I need code to be able to scroll through the cells in a range of variable
size and add the values in the in columns N and O and place the result in
column Q for each row in the range. The number of rows varies each time.

Thanks

How do you determine the range of rows?

Option Explicit
Sub testme()

Dim FirstRow As Long
Dim LastRow As Long

With Worksheets("sheet1")
FirstRow = 2 'headers in row 1 and row 2 starts the data
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

With .Range(.Cells(FirstRow, "Q"), .Cells(LastRow, "Q"))
.FormulaR1C1 = "=SUM(RC[-3]:RC[-2])"
'.Value = .Value
End With
End With

End Sub

This actually puts a formula in that range. If you want the value, then
uncomment that ".value = .value" line.

And I used column A to determine the last row to populate.

Alan M wrote:

Hi I need code to be able to scroll through the cells in a range of variable
size and add the values in the in columns N and O and place the result in
column Q for each row in the range. The number of rows varies each time.

Thanks

--

Dave Peterson