macro to draw a rectangle

i need to create a macro to draw a rectangle by two point ,  the first point is :  x = (max margin left of the sheet), y=(pick by mouse)  and the second point is : x = (max margin right of the sheet), y=(pick by mouse).

do you have any idea ?

thank you 

Marco