Legend Issue

[albmopar]

I copied a spreadsheet from someone else and now the legend expands into the C3 cell. It works doesn't show on their copy.
23400


Sub UPDATEOEECHART()
' UPDATEOEECHART Macro
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("Data History").Range( _
"A1:A3,B1:AA3,A10:A12,B10:AA12")
Range("V1").Select
End Sub