excel - データテーブルに新しい行を挿入 VBA Excel2010 ActiveX

Question

データ テーブルに行を挿入したいと考えています。手動で試してみると (行を選択し、新しい行を挿入) 正常に動作しますが、ActiveX ボタン (!) 内にあるマクロに追加しようとすると、「実行時エラー 438: オブジェクトはこれをサポートしていません」と表示されます方法"。ボタン内ではなく、通常のマクロでマクロを試してみると、問題なく動作します。

どうすればこの問題を解決できますか?

Set wsd = Sheets("Data")
wsd.Select                      
With wsd
.Rows("5:5").Select
.Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 'Here appears the error
End With

助けていただければ幸いです。前もって感謝します！