VBA copy und paste

[Thomasius]

Hallo und einen schönen guten Tag
ich habe eine Frage an Euch Spezialisten

habe volgenen  VBA
Sub CopyAktuelleSeite()
Intersect(ActiveSheet.Range("A:A,C:F"), ActiveSheet.Range("C5:C35").SpecialCells(xlCellTypeConstants, 3).EntireRow).Copy
Sheets("meine").Range("A11").PasteSpecial xlPasteValues
End Sub


klappt wunderbar aber würde gern das beim einfügen in ("meine ") E und F getauscht werden.
ich versuchte A:A,C,E,D:F
also 
A in A
C in B
E in C
D in D
F in E
ist das möglich ?
Gruß Thomas