Floating Command Button

Use instead code like...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    With ActiveSheet.Shapes("button 1")
        .Top = ActiveCell.Top
        .Left = ActiveCell.Left + 2 * ActiveCell.Width
    End With

End Sub

The Me. command usually refers to a VBA UserForm.

Or this one.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With ActiveWindow.VisibleRange.Resize(1, 1).Offset(1, 1)
    ActiveSheet.Shapes("button 1").Top = .Top: ActiveSheet.Shapes("button 1").Left = .Left
   End With
End Sub