Cell A1 contains Username and cell B1 contains a number
indicating how many times the names should be replicated
in the database.

try this:

Range("A2:A" & Range("B1").Value).Value = Range("A1").Value

--
Mit freundlichen Grüssen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)