Linie zeichnen ab aktiver Zelle

Ich google schon fast 2 tage aber finde keine funktionierende Antwort.
Vielleicht könnt ihr mir helfen:
Ich bräuchte ein makro, dass mir eine Linie von der rechten untern Ecke der gerade aktiven Zelle unter 45° nach oben zeichnet, länge ev. über inputbox wählbar.
Derzeit habe ich folgenden code:
ActiveSheet.Shapes.AddLine(a, b, c, d).Select

Damit zeichnet er halt irgendwo die Linie hin, aber wie kann ich sie an den Zell-Eckpunkt anhängen?