Hallo Julia,
ersetze dazu einfach ActiveCell durch Range("D1"). Dann sollte das Ganze klappen.
Gruß Mr. K.