When you put the below piece of code at the end of your code, then the Equation value will be put in H1 and the RSquared will be put in H2. Change those cell references to put the values in a place to your liking.
Here is the piece of code:
Dim myER As String
Dim sNumb As Integer
myER = Selection.DataLabel.Text
sNumb = InStr(myER, "")
Range("H1").Value = Left(myER, sNumb - 1)
Range("H2").Value = Right(myER, Len(myER) - sNumb)