VBA - Sum

Post date: May 17, 2011 9:21:07 PM

add5 = Application.Sum(Range(Cells(a, 5), Cells(t, 5)))

add6 = Application.Sum(Range(Cells(a, 6), Cells(t, 6)))

ActiveSheet.Cells(a, 7).Value = add5 - add6