VBA copy und paste

[Thomasius]

Hallo
ich bedanke mich für die tolle Hilfe 
habe  mein Problem gelöst

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

    ' Aktiviert das Blatt mit dem Namen "meine" (oder dem tatsächlichen Namen)
    Sheets("meine").Activate

    Dim temp As Variant
      temp = Range("c11:c35").Value
        Range("C11:c35").Value = Range("D11:d35").Value
      Range("D11:d35").Value = temp
End Sub

das klappt jetzt so wie ich es wollte
ganz liebe grüsse Thomas