Hi Jelena,
ja, du hattest bereits geschrieben, dass das Makro nicht ein zweites Mal gestartet werden kann - ich kann durchaus lesen... ;-)
Weshalb der Fehler beim 2. Ausführen auftritt, hatte ich erläutert - das hat nichts damit zu tun, dass Daten fehlen, sondern es ist einfach so: wenn du etwas einfügen willst, musst du vorher auch etwas kopiert haben. Vor dem 1. Mal Ausführen hast du das offensichtlich getan, denn sonst würde der Fehler bereits beim 1. Mal auftreten. Was (welche Zellen) also kopierst du, damit es in die Zelle D4 eingefügt werden soll mit diesen beiden Zeilen:
Range("D4").Select
ActiveSheet.Paste
M.E. ist deine gelb markierte Zeile aber gar nicht notwendig, wenn es sich nur um den Inhalt einer Zelle handelt, da du anschließend in dieselbe Zelle eine Formel einträgst, die das Eingefügte sowieso überschreibt.
Bis später, Karin