Nein kein Geheimnis

Sheets("Daten").Select
Range("C4").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C6:C10").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

usw.

Wie gesagt Code dauert sehr Lange

da er in mehreren Spalte ausgefürt wird