我想在excel录制一个作图的宏,怎么把数据源该为任意区域

用下面这段代码，可以用鼠标选择任意区域，然后使其为数据源。

Sub nn()
Dim newRange As Range
Dim tellMe As String
On Error GoTo VeryEnd
tellMe = "使用鼠标选择单元格区域:"
Set newRange = Application.InputBox(prompt:=tellMe, _
Title:="数据源区域", _
Type:=8)
newRange.Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=newRange
VeryEnd:
End Sub