Flytte en kommandoknap til lige under sidste tekst i Excelarket

Tror jeg fandt mit svar hos Excellent :-)

Sub BullsEye()
ActiveSheet.Shapes(1).Select
Selection.Copy
ActiveSheet.Paste
With Selection
  .Top = Range("B4").Top
  .Left = Range("B4").Left
End With
End Sub

Sub PlaceButtons()


Rrow = ThisWorkbook.Worksheets("UgePlan").Range("O65000").End(xlUp).Row
Rcol = ThisWorkbook.Worksheets("UgePlan").Range("O65000").End(xlUp).Column

Worksheets("UgePlan").Activate
ActiveSheet.Shapes("Button 4").Select

With Selection
  .Top = Cells(Rrow + 2, Rcol).Top
  .Left = Cells(Rrow + 2, Rcol).Left
End With

ActiveSheet.Shapes("Button 5").Select

With Selection
  .Top = Cells(Rrow + 2, Rcol + 5).Top
  .Left = Cells(Rrow + 2, Rcol + 5).Left
End With


End Sub