Actieve selectie verplaatsen, niet de inhoud

[balkumj]

Hallo,

Ik hoop dat iemand mij kan helpen met het volgende probleem:
Ik heb een blok met gegevens naar een ander tabblad gekopieerd bv van B3:G12, het blok staat nog geselecteerd en ik wil in de kolom voor al deze regels een vast nummer kopieren (ook weer van een ander tabblad). Het blok kan varieren van 1 tot 10 regels en elk nieuw blok komt onder de laatste te staan.
Ik krijg het wel voor elkaar om het vaste nummer 1 keer voor het blok te kopieren, maar niet om dit nummer op elke regel te zetten.
Het zal, vrees ik, wel heel omslachtig geschreven zijn, maar zie voorbeeld (dit is een gedeelte van de code).

'Kopieren regel
    Range("L32:Q32").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
 
'plakken op sheet bestelblad op nieuwe regel
 
    Sheets("Bestelblad").Select
    Range("B1").End(xlDown).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      
   'Req. nummer kopieren en plakken

    Sheets("Gegevens").Select
    Range("A10").Select
    Selection.Copy
    
    Sheets("Bestelblad").Select
    Range("A" & ActiveCell.Row).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
           :=False, Transpose:=False

Het zou fantastisch zijn als iemand mij de oplossing kan geven.

Groetjes Jolanda