删除范围内的一个自选形状 - VBA

Question

这是我尝试做的。当我单击一个按钮时，上面的自动形状将复制到A8：F12矩形中。

第一个按钮的代码（录制的宏）：

Sub addTextbox1()
    Range("A2:C3").Select
    Range("C2").Activate
    Selection.Copy
    Range("B9").Select
    ActiveSheet.Paste
End Sub

我的问题是我想制作一个按钮，可以删除A8：F12范围内的自动形状。我发现这删除了工作表中的所有自动形状：

Sub DeleteShapes()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next Shp
End Sub

或删除自动名称的名称（在我的情况下不起作用，会生成新的自动图形以便我不知道他们的名字）

我知道点击形状并快速按“删除”＃39;但由于好奇，我想知道是否可以在VBA中做到这一点