Linien relativ zur Zelle zeichnen

ich möchte mit VBA Linien relativ zu Zellen (von Mittelpunkt zu Mittelpunkt) zeichnen und habe dazu folgende Funktionen geschrieben:

Allerdings gibt es hierbei Abweichungen bei zunehmender Reihen- und Spaltennummer, wie mein folgender Testlauf beweist:

Kann mir jemand sagen, wo mein Fehler liegt?
Oder gibt es noch eine einfachere Lösung für das Problem?

Danke im Vorraus.

Steffan.