セルを別のシートにコピーしてコピーしたセルを10回オートフィルする

Question

C10のセルの内容を新しいシート（「新規顧客」）から別のシート（「インベントリ」）にコピーする必要があります。

セルがコピーされると、コピーまたは自動入力が10回必要です。インベントリシートの10行には、同じ顧客IDが入力されています。

注：このマクロは複数回実行されるため、その時点で次のavaiblaable 10行が何であれ、常に「インベントリ」シートに入力する必要があります。 私はオートフィル部分を理解していません。それは私があなたの助けを必要とするところであり、残りはそれがすべきことです。どのようにこれを修正するための任意のアイデア？

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

ブリリアント

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