Correlation Analysis

Sub CalculateCorrelations()
    Dim ws As Worksheet
    Dim xRange As Range, yRange As Range
    Dim correlation As Double
    Dim lastRow As Long

    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    ' Define data ranges
    Set xRange = ws.Range("A2:A" & lastRow)
    Set yRange = ws.Range("B2:B" & lastRow)

    ' Calculate correlation
    correlation = Application.WorksheetFunction.Correl(xRange, yRange)

    ' Output results
    ws.Range("D1").Value = "Correlation Analysis"
    ws.Range("D2").Value = "Correlation: " & Round(correlation, 4)

    ' Interpret correlation strength
    Select Case Abs(correlation)
        Case Is >= 0.7
            ws.Range("D3").Value = "Strong correlation"
        Case Is >= 0.3
            ws.Range("D3").Value = "Moderate correlation"
        Case Else
            ws.Range("D3").Value = "Weak correlation"
    End Select

    MsgBox "Correlation analysis complete! R = " & Round(correlation, 4)
End Sub