Makkelijk code uiteindelijk nog
het kan korter maar heb het me makkelijk gehouden
Sub CopyToWinnaar()
'
' CopyToWinnaar Macro
'
'
Do
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(1, -19).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(0, 2).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(2, -2).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(1, 0).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(1, 0).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(-2, 1).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(1, 0).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(1, 0).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(-2, 1).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(1, 0).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(1, 0).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(-2, 1).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(1, 0).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(1, 0).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(-2, 1).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(1, 0).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(1, 0).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(-2, 1).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(1, 0).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(1, 0).Select
Selection.Copy
Sheets("Winnaar").Select
Selection.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Deelnames").Select
Selection.Offset(3, -5).Select
Loop Until IsEmpty(ActiveCell.Offset(0, 0))
End Sub