Код:

Sub CorrDescription()
Dim sNmCl$, sNmRw$, sStr$
Dim r As Range
Dim oDict: Set oDict = CreateObject("Scripting.Dictionary"): oDict.CompareMode = vbBinaryCompare
sStr = "При проведении корреляционного анализа были полученные статистически достоверные зависимости, так, "
For Each r In Selection
    If r.Font.ColorIndex = 3 Then
    sNmCl = Cells(1, r.Column).Value
    sNmRw = Cells(r.Row, 1).Value
        If oDict.Exists(sNmCl & sNmRw) = False And oDict.Exists(sNmRw & sNmCl) = False Then
            If r.Value >= 0 Then
                sStr = sStr & sNmCl & " положительно коррелирует с " & sNmRw & " (r = " & Application.Round(r.Value, 2) & ", p<0,05), "
            Else
                sStr = sStr & sNmCl & " отрицательно коррелирует с  " & sNmRw & " (r = " & Application.Round(r.Value, 2) & ", p<0,05), "
            End If
            oDict.Item(sNmCl & sNmRw) = 1
            oDict.Item(sNmRw & sNmCl) = 1
        End If
    End If
Next
sStr = Left(sStr, Len(sStr) - 2) & "."
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 2, 1) = sStr
End Sub