Option Explicit Sub DoIt() With Sheets(Sheets("Tabelle1").Range("C3").Value) .Range("J7").Copy Sheets("Tabelle1").Range("J5").PasteSpecial xlPasteValues .Range("N7").Copy Sheets("Tabelle1").Range("N5").PasteSpecial xlPasteValues End With End Sub