Placing a data label under a legend.

[Tanner_2004]

An MVP provided me with this code which does an awesome job of displaying the last data paint label (value). Because of the chart layout, I had to move my legend manually to the top right (and the orient it horizontally). I would like the last data label to appear slight below the legend. Presently, I must drag the data labels manually to position them where I want them (under the legend with is composed a 4 series). Thank you.

 Sub LastPointLabel()      Dim mySrs As Series
      Dim nPts As Long
      If ActiveChart Is Nothing Then
        MsgBox "Please select a chart and try again.", vbExclamation
      Else
        For Each mySrs In ActiveChart.SeriesCollection
          With mySrs
            nPts = .Points.Count
            mySrs.Points(nPts).ApplyDataLabels _
                Type:=xlDataLabelsShowValue, _
                AutoText:=True, LegendKey:=False
           ' mySrs.Points(nPts).DataLabel.Text = mySrs.Name
          End With
        Next
        
        
      End If
           
   
    
    
    End Sub