Copy a form control button to new cell, with button click, and maintain button caption

Hello,
I am new to VBA and was looking for some help.
My file is a sports betting draw game, that I am trying to automate better.
Previously, I was using a data verification/drop down list for selections, in the beige fields.
Now I am tinkering with using form control buttons. My desire is to have form control buttons for each player.
When the user clicks on this player, that button (identical caption) moves to the next position in the draw.
I have this sub routine right now, and looking to build it out. The sub routine successfully places a button in the activecell, with
the correct size, the caption however doesn't follow, which is what I need help with.
First time posting, sorry if I am not clear.

Sub Button37_Click()
Call buttonInACell
End Sub

Sub buttonInACell()
Dim btn As Button
Dim t
Set t = ActiveCell
Set btn = ActiveSheet.Buttons.Add(t.Left, t.Top, t.Width, t.Height)

End Sub