Try this.
 
Range("B3").Resize(Range("C1").Value).Formula = "=RANDBETWEEN(1, $C$1)"