Sub populaterange() Dim myrange As range Set myrange = range("C2:J12") myrange.Value = "=rand()" range("C14").Value = "Average" range("D14").Formula = WorksheetFunction.Average(myrange) range("C15").Value = "Sum" range("D15").Formula = WorksheetFunction.Sum(myrange) End Sub