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
Preview:
downloadDownload PNG
downloadDownload JPEG
downloadDownload SVG
Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!
Click to optimize width for Twitter