Macro par copiar "ecuación de linea de tendencia y "R2" y pegar en una celda.

Buenas tardes Expertos, me encantaría que me pudieran ayudar con lo siguiente:
He realizado una macro que me permite crear una gráfica de dispersión, a la cual le he agregado las lineas de tendencia lineal, logarítmica y polinómica con sus respectivas ecuaciones y valores de R2.
Después de esto he querido realizar una macro que me permita copiar la "ecuación de la línea de tendencia" y "R2", y pegarlo en la celda:
"Celda R1 = ecuación lineal"
"Celda S1 = ecuación logarítmica"
"Celda T1 = ecuación polinómica"
"Celda U1 = R2 lineal"
"Celda V1 = R2 logarítmico"
"Celda W1 = R2 polinómica"
La macro la realice a través de la grabadora, y quedo de la siguiente forma:

Sub copia_y_pega_ecuacion_y_R2_de_un_grafico()
ActiveSheet.ChartObjects("Gráfico").Activate
ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Select
Range("R1").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Gráfico").Activate
ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Select
Range("U1").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Gráfico").Activate
ActiveChart.SeriesCollection(1).Trendlines(2).DataLabel.Select
Range("S1").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Gráfico").Activate
ActiveChart.SeriesCollection(1).Trendlines(2).DataLabel.Select
Range("V1").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Gráfico").Activate
ActiveChart.SeriesCollection(1).Trendlines(3).DataLabel.Select
Range("T1").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Gráfico").Activate
ActiveChart.SeriesCollection(1).Trendlines(3).DataLabel.Select
Range("W1").Select
ActiveSheet.Paste
End Sub
Y efectivamente me pega valores en las celdas correspondientes, pero no me pega los valores que necesito, me pega valores de lo último que copie, es decir en todas las celdas R1, Q1, S1, T1, U1 y W1 me pone el mismo valor.
Me gustaría saber que debo modificarle al código de la macro para poder copiar y pegar la "ecuación" y R2" en las celdas correspondientes.
Agradeceré cualquier ayuda, Muchas Gracias.