Bedingte Formatierung mit VBA

in einer umfangreicheren Anwendung bin ich auf folgendes Problem gestossen. Beim kopieren der bedingten Formatierung per VBA werden die Formeln nicht richtig übertragen wenn die ActiveCell nicht in der ersten Zeile des Formelbereiches steht. Dazu das folgende kleine Beispiel (Zellen A1:A25 sind mit den Zahlen 1 bis 25 gefüllt, die Zellen aus Spalte A, die durch 5 teilbar sind, sollten in Spalte B blau markiert werden):

Wenn die aktive Zelle in Zeile 1 steht, funktioniert's, wenn diese in einer anderen steht geht's nicht.

Irgendeine Erklärung oder Hinweis, wie ich das umgehen kann.

Rolf