Macro To Delete Buttons In Specific Row

I need to have my macro select all buttons in the current row (including the button I clicked on and delete them. There are many rows with buttons. Each row needs to have this button. So I need it to be row specific.

I know that this is how to select the row that the button is in:

VB : sh1.Buttons(Application.Caller).TopLeftCell.Row

But I do not know how to select the buttons in that row. It needs to be included in this:

VB:
Sub move()
Dim shname As String, sh1 As Worksheet, lc As Long, rw As Long
Set sh1 = ActiveSheet
lc = sh1.Cells.Find("*", , , , 2, 2).Column
rw = sh1.Buttons(Application.Caller).TopLeftCell.Row

[Code] .....

After many attempts and alot of research, I have some more code for this problem: This deletes all buttons in the sheet:

VB:
Sub DeleteShapes()
Dim shp As Shape
Dim myVar As Shapes
ActiveSheet.Activate

[Code] .....

And this deletes the current button only:

VB:
Sub pressbuttons()
With ActiveSheet.Buttons(Application.Caller)
.Delete
End With
End Sub

Any way to either limit the first code to just a particular row, or expand the second one to the entire row.