Copier la cellule dans une autre feuille et remplir automatiquement la cellule copiée 10 fois

Question

Je dois copier le contenu de la cellule dans C10 d'une feuille (appelée "Nouveaux clients") à une autre feuille (appelée "Inventaire") suivante rangée disponible.

Une fois la cellule copiée, elle doit être copiée ou remplie automatiquement 10 fois. Ainsi, 10 lignes de la feuille d'inventaire ont le même numéro de client renseigné.

Remarque: Cette macro sera exécutée plusieurs fois et elle doit toujours remplir la feuille "Inventaire" avec les 10 lignes suivantes disponibles à ce stade. Je n'ai pas compris la partie Autofill. C'est là que j'ai besoin de votre aide, le reste fait ce qu'il devrait. Des idées pour résoudre le problème?

Sub copyCustomer() 
'copy customer ID into inventory sheet. Then autofill inventory 10 times. 
'need for this to OFFSET to add a new customer next time macro is ran. 
    Set Source = Sheets("New Customers") 
    Sheets("New Customers").Select 
    Range("C10").Select 
    Selection.Copy 
    Sheets("Inventory").Select 
    Range("B" & Rows.Count).End(xlUp).Offset(1).Select 
    ActiveSheet.Paste 
    'Autofill this 10 times 
End Sub 

Answer 1

Essayez ceci (qui remplace tout votre code actuel)

Sub copyCustomer() 
    Sheets("New Customers").Range("C10").Copy Sheets("Inventory").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(10) 
End Sub