kurze frage zum copy-befehl

Sub test()
Dim wksquelle As Worksheet, wksziel As Worksheet, bereich As Range, leistung As String
Set wksquelle = Worksheets("Daten Tabelle IEC")
Set wksziel = Worksheets("Tabelle IEC")
With wksziel
leistung = .Range("H2").Value
Set bereich = wksquelle.Range("H2:V2")
For Each rng In bereich
If rng.Value = leistung Then
wksquelle.Range(Cells(10, rng.Column), Cells(56, rng.Column)).Copy
.Cells(8, 10).PasteSpecial Paste:=xlValues
End If
Next
End With
End Sub

die anwendung bringt dann einen laufzeitfehler 1004 der besagt:
"Die Methode "Range" für das Objekt "_worksheet" ist abgelaufen"
was mache ich falsch?
danke schon mal