perhaps?:Cells(y, x).Value = Application.WorksheetFunction.Sum(Range(Cells(y,x), Cells(y + 3, x))) / 4