Boton de comando móvil

Hola!! Tengo el siguiente código:
Dim en as String, ubicacion as String, _
Izquierda As Single, Arriba As Single
en = ActiveWindow.VisibleRange.Address
ubicacion = Range(en).Cells(10, 9).Address
With ActiveSheet.Shapes("Botón 1)
If .TopLeftCell.Address = ubicación Then Exit Sub
Izquierda = Range(ubicación).Left
Arriba = Range(ubicación).Top
.Left =Izquierda: .Top = Arriba
End With
Este codigo hace que el boton de comando me siga por la hoja (si bajo o me muevo dentro de ella) y aparezca en la celda (10,9) de dicha hoja visible.
Lo que quiero hacer es que el boton de comando baje o suba por una detrmainada columna, por ejemplo la x. Puede ser por la fila activa y una columna fija.
Espero que se entienda.
Desde ya gracias!
Saludos