Cómo usar VBA para dibujar un rectángulo en Excel seleccionando celdas con el mouse
Puedes cambiar la posición seleccionada con el ratón:
ActiveSheet.Shapes.AddShape (1, selección.Izquierda, selección.Arriba, selección.ancho, selección.alto).Selecciona ¡Te deseo éxito!