Advanced Data Analysis

Sub AnalyzeDataTrends()
    Dim ws As Worksheet
    Dim dataRange As Range
    Dim lastRow As Long
    Dim average As Double
    Dim stdev As Double

    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set dataRange = ws.Range("B2:B" & lastRow)

    ' Calculate statistics
    average = Application.WorksheetFunction.Average(dataRange)
    stdev = Application.WorksheetFunction.StDev(dataRange)

' ... 16 more lines hidden ...
'
' Sign up for free to view the complete code
' Visit: vbacode.io