Well you need to position each label for series 2 relative to the label for series 1, so something like[VBA]With ActiveChart.SeriesCollection(2)
For intPoint = 1 To .Points.Count
.DataLabels(intPoint).Top = _
ActiveChart.SeriesCollection(1).DataLabels(intPoint).Top - 20
Next
End With[/VBA]Make sure you have enough space for both labels to fit or they'll overlap