basic copy/paste macro needed

[neov]

long time board reader, first question in a while

I have two worksheets. One (#1)worksheet has a list of 431 account numbers.

The other worksheet (#2)has a repeating list of 437 department numbers/org's that I've already copied, 431 times, into it's own column.

What I need to do now is copy each account number (on worksheet 1) 37 times onto worksheet 2, then go back to worksheet 1 - get the next account number - copy that onto worksheet 2 - starting below were I just copied the previous account number.

I need to repeat this 431 times - this is to make an import file that our ERP system can read to block certain combinations of account numbers and org strings from being used together.

Thanks in advance!

 

[neov]

found a solution from Norrie

Set rng = Sheets("Report").Range("C6")
For Each nm In Range("List_Name")
       rng.Resize(22) = nm.Value
       Set rng = rng.Offset(22)
Next nm

I had to change my 22 to a 37, and of course use a range name - but it works perfectly