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)

    ' Create summary
    ws.Range("E1").Value = "Analysis Summary"
    ws.Range("E2").Value = "Average: " & Round(average, 2)
    ws.Range("E3").Value = "Std Dev: " & Round(stdev, 2)
    ws.Range("E4").Value = "Count: " & dataRange.Count

    ' Highlight outliers
    Dim cell As Range
    For Each cell In dataRange
        If Abs(cell.Value - average) > 2 * stdev Then
            cell.Interior.Color = RGB(255, 200, 200)
        End If
    Next cell

    MsgBox "Data analysis complete!"
End Sub