Aanvulling VBA

[jpvs]

Tot hier toe ben ik al geraakt met mijn listing, alleen wil ik dat er telkens op de knop drukt en de macro van Kopieren uitwerkt er telkens een rij naar beneden gaat?
Alleen het laatste ontbreekt mij?
Heb al op de site van rondebruin gaan zien en heb enkele listings uitgeprobeerd zoals
Sub copy_2
Sub copy_5
en een beetje aangepast maar wil niet lukken?

Sub Kopieren()
Range("C5,C14,C23,C32,C41,C50").Select
Range("C50").Activate
Selection.Copy
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("J2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = Date
Range("D3").Select

Worksheets("Holdings").Activate
Range("D2").Select
If Range("D2").Value = "" Then
Range("D2").Activate
Else
Range("D2").CurrentRegion.Select
ActiveCell.Offset(Selection.Rows.Count, 0).Activate
End If
...
...
...

End Sub

Dank bij voorbaat
Pierre