Frage zu aufgenommenem Makro

Sub Makro2()
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
Range("D9").Select
Selection.Copy
End Sub

Das Makro soll die aktuelle Zeile füllen, dann in die nächste Wechseln und den dortigen Text kopieren. Klappt aber nur für die Spalte D8, weil beim Aufzeichnen das Drücken der Entertaste um in die nächste Zeile zu kommen, nicht als genereller Wechsel erkannt wurde; das Makro geht davon aus dass ich immer in Zelle D9 will, aber das will ich nicht
was muss ich ändern, damit er in die nächste Zelle drunter wechselt? Nehme an dass es da nen einfachen Befehl gibt, aber ich komme da leider nicht weiter
sowas wie break; return; oder so hab ich noch nicht ausprobiert, gibt es sowas in VBA? Hoffe ihr könnt mir helfen, wäre super
gruß
Pat