Excel vba阻止 弹出警告信息

我编了下面的VBA程序,先运行第一个过程式,然后运行第二个过程.当运行第二个过程时会弹出系统的提示信息,请问如何阻止该提示信息的弹出?
Sub inputData()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim m As Integer
i = 0
j = 0
k = 1
m = 1
For j = 1 To 5 Step 1

For i = 1 To 50 Step 1
Sheets("sheet1").Cells(i, 2 * j - 1) = i
Sheets("sheet1").Cells(i, 2 * j) = i * i / m + k

Next
k = k + 10
m = m + 1
Next

End Sub
Sub try()
Dim i As Integer
Dim j As Integer
Dim X(7) As Range
Dim Y(7) As Range
Dim mySource As Range
i = 0
j = 0

With ActiveWorkbook.Sheets("sheet1")
Set X(0) = Sheets("sheet1").Columns(1)
Set Y(0) = Sheets("sheet1").Columns(2)
Set mySource = Union(X(0), Y(0))

Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth

ActiveCh