Liebe Profis

Wie kann ich diesen Kode zusammenfassen?

Range("J10") = ActiveCell.Value
Range("J12") = Cells(ActiveCell.Row + 2, ActiveCell.Column)
Range("J13") = Cells(ActiveCell.Row + 3, ActiveCell.Column)
Range("J14") = Cells(ActiveCell.Row + 4, ActiveCell.Column)
Range("J15") = Cells(ActiveCell.Row + 5, ActiveCell.Column)
Range("J16") = Cells(ActiveCell.Row + 6, ActiveCell.Column)

vielen Dank für Eure Hilfe

Urs