Copying Button when copying cell

Mac's only support buttons from the Forms menu. They are not contained in cells. They are really shapes.

If you want to copy buttons that are over cells, it has to be done seperately from copying the cells.

With ActiveSheet
    .Shapes("Button 1").Copy
    .Paste
    With .Shapes(.Shapes.Count)
        .Left = 100
        .Top = 150
    End With
End With