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