Code:
Sheets("Urwerttabellen").Select
Range("A1:K10").Select
Selection.Copy
Sheets("Berechnung").Select
Range("C1").Select
ActiveSheet.Paste
wird zu
Code:
sheets("Berechnung").Range("A1:K10").value = sheets("Urwerttabellen").Range("A1:K10").value
für den Range-Befehl der auf "Berechnung" wirkt muss du noch die Zellen anpassen!