Moving buttons

[cbsox]

Hi, I have a sheet that has three discrete tables asking information. They are positioned vertically (table 1 above table 2 above table 3). I have a button next to the header of each table which adds a line to the table automatically. It uses the following code:

Sub Button3_Click()
ActiveSheet.ListObjects("priority1").ListRows.Add AlwaysInsert:=True
End Sub

"priority1" is the first table, "priority2" the second, "priority3" the third.

Each button is set to move and size with cells. This works if I manually insert a new row. However, if I click on the first button to add a row to the section 1 table, the section 2 and 3 tables move down but the buttons do not. How would I go about making the latter two buttons move down as well? Could they be positioned relative to the top right of their respective tables?

Thank you in advance.

 

[ACommandLineKindaGuy]

Append the following to each Button's Click event This places the Button at the top of and to the right of its table

With ActiveSheet.Shapes
    .Range(Array("Button 3")).Left = Range("Priority1").Left + Range("Priority1").Width
    .Range(Array("Button 3")).Top = Range("Priority1").Top
End With

 

[cbsox]

Thanks! How would I go about making it align with the table header instead of the top row of the table itself?

 

[ACommandLineKindaGuy]

Change the button .Top property to equal the .Top property of the header range