¿Cómo insertar una gráfica con macros?

hola, mi duda es la siguiente; tengo una serie de datos que necesito graficar cuando el usuario pulse un botón. Esa parte la realizo con el siguiente código

Private Sub CommandButton1_Click()

ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("D18:E24")
End Sub

Lo que necesito es que cada que se active la hoja se elimine la gráfica... Había pensado en algo como ...

Private Sub Worksheet_Activate()

source.clear

end sub

pero no tuve éxito; me aparecía un error. Por otra parte, también necesito que la gráfica salga en determinado lugar de la hoja, pero de eso si no tengo la menor idea.

Gracias por cualquier ayuda que me puedan brindar.