データテーブル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 

ヘルプは大歓迎です。前もって感謝します！

Answer 1

選択する必要はありません。シートのためではなく、行のためではありません。

Sub test() 
Set wsd = Sheets("Data") 
With wsd 
    .Rows("5:5").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
End With 

End Sub