Sum VBA

[billandrew]

Using the following code to Sum columns 12 through 18, however the totals are incorrect, not sure what I am doing wrong.

Code I am using

For i = 12 To 18

lr = Cells(Rows.Count, i).End(xlUp).Row

If lr > 12 Then

Cells(lr + 1, i) = WorksheetFunction.Sum(Range(Cells(12, i), Cells(lr, i)))


Thank You

 

[billandrew]

Foolish

I see my mistake, this is adding from row 12 when it should be from another row. The example above most likely would not have been an adequate description of the issue with no data behind it.

My apologies...