Cells(i, "o").Value = application.sum(range(Cells(i, "I"), Cells(i, "N")))



"Juan" wrote:

> Hi,
> have following Code that I would like to modify. So instead of dividing, I
> want to Sum but can't seem to get the right logic.
> ' Dim i as long
>
> For i = 1 To ActiveSheet.UsedRange.Rows.Count
> If Cells(i, "A") = "" Then
> Cells(i, "o").Value = Cells(i, "I") / Cells(i, "N")
> End If
> Next
> Basically, I want to sum of columns I throuh N where Column A is Blank in
> Column O.
>
> Please advise any info would really appreciate it.
>
> Thanks,
> Juan