Say row 1 height is 60 and button height is 30
CommandButton 1 in cell BP1 at the top (BP is column 68)
CommandButton 2 in cell BP1 below Button 1
.OLEObjects("Commandbutton1").Top = .Cells(1, 68).Top ' place in top of cell
.OLEObjects("Commandbutton1").Left =...