formule voor testspel

[belcitas]

Kan iemand voor mij deze formule aanpassen
mij lukt het niet foutkode 9 in regel die begint met Set Rng

Sub ExportScore()
Set Cum = Sheets("score")
Set Par = Sheets("Partij Uitslagen")
Zoekstring = Par.Range("I1").Value
If Trim(Zoekstring) <> "" Then
With Cum.Range(" A1:AA66")
Set Rng = .Find(What:=Zoekstring, After:=.Cells(.Cells.Count), LookIn:=x1Values, LookAt:=x1Whole, SearchOrder:=x1ByRows, SearchDirection:=x1Next, MatchCase:=False)
If Not Rng Is Nothing Then
Rng.Offset(1).Resize(6).Value = Par.Range("W24:x24").Value
Else
MsgBox "Foutje,bedankt"
End If
End With
End If
End Sub

Bedoeling is dat in het werkblad wedstrijd de score per partij wordt overgezet naar werkblad score
Wie wil mij helpen

 

[puppie]

Drie keer dezelfde vraag is niet toegestaan en ook niet handig.
Ga hier maar verder https://www.helpmij.nl/forum/showthread.php/943856-formule-voor-testspel?p=6157157#post6157157