Schreibweise ohne Selection kurze Frage

Bin Anfaenger und hab´nur ne kurze Frage. Sicherlich dauert es nur knapp 20 Sekunden fuer euch:

Wie wuerde ich das hier ohne "selection" schreiben?:

Range("D" & i).Select
Selection.Copy
Sheets("Investitionen").Select
Range("C6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Worksheets("Report").range("D" & i).copy destination= Worksheets("Investitionen").range("C6")_
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Sieht etwas viel aus? Wie ist es richtig?

Gruesse
Olli