Hello JMB,
Thanks alot. Seems to work

Really appreciated the help.

Juan

"JMB" wrote:

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