Autofilter ==> Werte kopieren ?

Sub gefilterte_kopieren()
Dim rng As Range
For Each rng In ActiveSheet.Range("C2:C14").SpecialCells(xlCellTypeVisible)
rng.Copy
rng.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next rng
End Sub

mfG
Ingo Christiansen
Ahoi,
habe in einem Blatt den Autofilter gesetzt (zB alle Werte größer 100). Die einzelnen Werte _
kommen
aus einem anderen File.
Nun möchte ich gerne die Werte größer 100 selektieren & kopieren und Werte einfügen, sodass ich _
die Verknüpfung los werde und die Werte kleiner 100 die Verknüpfung noch beibehalten.
Leider spuckt mir Excel da eine Fehlermeldung aus, da untereschiedl. Formen und Größen usw. _
existieren.
Gibts dazu eine Lösung ? Könnte auch ein Makro sein.
LG Stefan