Caio,
Boa noite!

Muito boa iniciativa da sua parte em se dedicar a compartilhar conhecimento, toda iniciativa produtiva com ou sem a necessidade atual deveria ser aplaudida em todo ambiente de conhecimento. Parabéns !

Caio,

Muito bom o seu exemplo. Já tive que usar muito estas equações de tendência.

Somente como complementação para contribuir com o assunto fiz uma pequena inclusão deste código na planilha para mostrar a equação de forma automatizada.

Sub MostraEq()
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveChart.FullSeriesCollection(1).Trendlines(1).Select
    Selection.DisplayEquation = True
    Range("D1") = ActiveChart.FullSeriesCollection(1).Trendlines(1).DataLabel.Formula
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveChart.FullSeriesCollection(1).Trendlines(1).DisplayEquation = False
End Sub

Tentei baixar o arquivo, mas toda vez que baixo o arquivo o 7-zip ou o próprio Windows Explorer não consegue extrair a planilha..

Por favor, pode postar o arquivo novamente..