Eliminar lineas creadas por macro

Buenas,
Tengo una macro en la que me dibuja un cuadrado con las dimensiones que yo le diga. Y me lo dibuja con ActiveSheet.Shapes.AddLine
El problema es que cada vez que cambio las dimensiones quiero que a través de la macro me borre el dibujo anterior y me pinte el nuevo. Pero no consigo borrar el anterior
Me podeis ayudar?
Muchas gracias
Saludos